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FOREWORD 


The SD_SURF computer programs and user's guide were prepared under 
contract NAS8-38856 from NASA Marshall Space Flight Center. The study 
contract title was "Structural Damage Prediction and Analysis for Hypervelocity 
Impacts." The Technical Monitors were Joel Williamsen, Greg Olsen, and 
Jennifer Robinson. The code and user’s manual were created between October, 
1990 and September, 1992. Updates are included through October, 1995 
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1 Introduction 

The SD_SURF code takes a different approach than that used by other codes 
such as BUMPER [1], BUMPERII [2], or Space Debris Vulnerability (SDV) [3]. 
All of the codes treat a space vehicle as a faceted geometry. The space debris 
environment is considered to be a series of threats from different directions. 

Each direction has a corresponding impact velocity. The other codes calculate 
the probability of no penetration for each facet based on the exposure area and 
the penetration resistance (ballistic limit) to each threat’s impact velocity and 
obliquity. This output tells the designer which areas are most vulnerable. 
However, the output does not give any information to help select the most 
efficient shield design for a given area. While parametric studies can be 
designed to cover all possibilities, additional information can help a designer 
narrow the number of variables to be optimized for a given penetration 
mechanism. 

The new approach, used in the SD_SURF code, first summarizes an 
exposed area on the spacecraft in a table of velocity and obliquity. The table can 
be generated from a description of a simple geometry (plane, sphere, or cylinder) 
or the code can read the GEOM output from BUMPERII. This allows a complex 
geometry to be processed (including self shielding calculations) and stored as a 
small file for further trade studies or optimization. 

The analyst who is familiar with BUMPERII will feel right at home with the 
FORTRAN applications on both the Macintosh or the VAX. Installation is 
described in Section 6. A complete review of this manual is not critical, so the 
most significant warnings are repeated here. 


WARNING: Unlike the VAX, if you save files with the same name on the 
Macintosh the earlier file will be deleted! 


NOTE: Unlike, SHIELD, multiple element ID ranges are lumped together by 
A_SURF, and multiple PIDs in all of the selected ranges are ignored. 

The facets in each range are summed to only one area array regardless of 
PID. If different PIDs must be analyzed separately, (eg. a window along a 
module) the analyst must select only those elements with the desired PID. The 
analyst must know the model! 
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2 Background 

Previous approaches will be explained first, since SD_SURF expands on that 
work. Space debris codes probability codes BUMPERII (and its predecessor 
BUMPER), and Space Debris Vulnerability (SDV) analyze a space vehicle as a 
faceted geometry. 1~3 These codes calculate the probability of no penetration for 
each facet based on the exposure area and the penetration resistance (ballistic 
limit) to each threat’s impact velocity and obliquity, as described in the following 
sections. This output tells the designer which areas are most vulnerable. 


2.1 Environment 


The space debris environment is defined in terms of a flux of particles of 
diameter, d, or larger, dependant on the year of interest (due to assumed growth 
in the environment as well as solar flux) and the spacecraft altitude. 4 Figure 1 
shows a flux versus d curve for typical parameters of interest. 

The space debris environment may be modeled as a series of threats from 
discrete directions. For low earth orbit (LEO), space debris may be assumed to 
exist in circular orbits. This assumption fixes the orbital velocity. Debris cannot 
intercept a spacecraft from more than approximately 10° above or below a plane 
tangent to the local Earth normal, otherwise the debris would enter the Earth's 
atmosphere and be removed as a threat. Therefore, the relative impact velocity 
in LEO is determined by the orbital velocity, V 0 , and the intersection angle, 0, of 
the two orbits. The impact velocity, Vi, is: 


Vi = 2V 0 


,18O°-0. 

COS( o ) 


Figure 2 shows the fraction of the total flux coming from angles relative to the 
direction of flight. The relative impact velocity for the intersection of 388 km 
orbits is also shown on the plot. 

When the spacecraft attitude is fixed relative to the earth, the orientation of 
each facet on the surface will determine the most probable impact velocities and 
obliquities. 


2.2 Ballistic Limit Surface 

The spectrum of debris sizes, velocities, and obliquities which may impact a 
shield lead to a variety of penetration mechanisms. These are illustrated in Fig. 
3. Figure 4 illustrates a ballistic limit surface for hypervelocity impact on a 
multi-wall shield. A projectile diameter at a velocity and obliquity above the 
surface will penetrate the shield. A diameter below the surface will not 
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penetrate the shield. Changes in shield parameters affect each penetration 
mechanism differently. Therefore, it is important for the designer to know 
what penetration mechanism has the greatest effect on the overall probability of 
no penetration. 


2.3 Probability Analysis 

The probability of no penetration (PNP) from each direction and for each 

element is based on the Poisson distribution for zero events: 

/ nthreats 


PNP e l = exp 


£(Ni-Ai).t 


l i=l 


J 


where (with consistent units) 

Ni = flux which penetrates from each threat direction, i. 

= 4-fi-Nr(di) 

N r = flux on a randomly tumbling plate of diameter or larger. (As defined 
in the specifications.) 

di s diameter to penetrate at the velocity and obliquity of the ith threat, 
fj = fraction of flux from threat direction 
Ai = projected area of the facet in the flux direction, 

t = exposure time. 


The total PNP is determined by the product of the PNP for each element. 


nelements 

PNPtotal = Il PNP j 
j=l 


Figure 5 shows the BUMPERII modules and their input and output as they 
calculate PNP. 

BUMPERII starts with a SuperTab output file finite element model of the 
spacecraft. Figure 6 shows a model of Space Station Freedom.® The 
GEOMETRY module of BUMPERII calculates the projected area of the 
elements exposed to each threat direction based. A significant part of this 
calculation is intercomponent shadowing. This can be a very time consuming 
process for a large model. 

The RESPONSE module creates a ballistic limit surface from a menu of user 
selected penetration equations. The ballistic limit for each shield of interest is 
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stored in a matrix for every 0.25 km/s and 5° obliquity. This is also stored in 
binary form in the computer. Another BUMPERII code, RPLOT, reads the 
binary file and puts out a formatted file with the ballistic limit at 0°, 15°, 30°, 45°, 
and °60 obliquity for 2D plots. 

The SH IELD module calculates the PNP for any range of element numbers 
requested by the analyst. SHIELD also has an option to create a SuperTab file to 
plot probability contours on the original geometry model. 
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3 SD_SURF Analysis Approach 

To design the most effective shield, the analyst must know which 
penetration or damage mechanism is predominant. It is the goal of the Space 
Debris Surfaces (SDJ3URF) computer programs to provide this information. 

The flux associated with each point on the ballistic limit surface can be 
weighted by the probability of an impact at that particular velocity and obliquity. 

PNP(V,P) = exp[-N(d)-f(V).A(V,P)-t] 


where 

A(V,P) = total projected area of the spacecraft that will be impacted from a 
debris particle at an obliquity, P, at velocity V. 
ftV) = the fraction of the total flux at velocity V. 

N(d) = the flux associated with the diameter d that just penetrates at V and p. 


The SDJ3URF approach is to store the elements of area in an array in small 
increments of velocity and obliquity. The total PNP is then given by: 


V P ' 

PNPtotal = exp| -t- V £(N(di j)A(Vi,Pj» 
i=l j=l 


There is a difference in the PNP calculated for a unit area at a single velocity 
and obliquity versus distributing the area over two bracketing velocities and two 
bracketing obliquities. This is due to the non-linear relationship between flux 
and diameter. On the other hand, the analysis of a curved surface in 
BUMPERII is more accurate than SDJ3URF only if the angle subtended by the 
facets is smaller than the five degree increments used on the RESPONSE and 
AREA_SURFACE tables. SD_SURF overall probability calculations may be 
used as confidently as BUMPERII for models that have coarser increments than 
5° facets and 90 threat directions, regardless of the ballistic limit surface. Finer 
models are prohibitively time consuming and will not necessarily produce a 
different result. 

Like any computer model that treats a continuous process as a discrete or 
finite element, there is a chance of introducing errors. Of course, BUMPERII 
and SD_SURF do not require the same level of debugging as a finite element or 
hydrocode model. One sources of potential error is in the shadowing and area 
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calculation, which BUMPERII does quite well. The partial shadowing option is 
a good quick way to determine if the discretized environment and geometry 
affect the effective area. The second potential source of error is how well the 
ballistic limit surface is interrogated. The old meteoroid method of using the 
average impact velocity is certainly inappropriate for space debris. 

If the ballistic limit surface is smoothly varying there is potentially a small 
error introduced by lumping all of the exposed area of a curved surface into one 
flat facet and the debris angular distribution into a discreet number of threats. 
Each velocity and facet treats all of the exposed area as if it occurs at one velocity 
and obliquity. This is a relatively small error, the magnitude of which depends 
on the curvature of the ballistic limit surface. 

However, if the velocity and obliquity increments are large, and the ballistic 
limit surface has deep troughs or sharp peaks, then a larger error is possible. It 
is possible to miss key areas. In other terms, the ballistic limit surface can be 
undersampled. What matters to the analyst is whether it affects the result. The 
shape of the ballistic limit surface has a direct impact on the fidelity of the 
environment and geometry models needed to sample it. The SD_SURF output 
provides information to judge whether the cusps in the ballistic limit surface 
were caught by the model and whether they will influence the PNP. 
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4 SD_SURF - FORTRAN VERSION 

The interrelationship of the FORTRAN modules of SD_SURF is shown in 
Fig. 7. SD_STJRF acts as a post-processor of BUMPERII-RESPONSE and 
GEOMETRY output. It provides additional information not readily obtainable 
from BUMPERII. 

Only P_SURF and AJSURF are required to perform an analysis. The 
source codes are in Appendicies A and B respectively. 

The A_SURF module reads the BUMPERII-GEOMETRY binary output to 
create the exposed area matrix as a function of velocity and obliquity. Rather 
than lump the area of one facet at the nearest velocity and obliquity, A_SURF 
uses the lever rule to distribute the projected area, for one facet and one threat, 

over the four nearest velocities and obliquities. The sum of the exposed areas is 

* 

equal to the area reported by BUMPERII. 

The A_SURF module creates both an unformatted file and a formatted file. 
The unformatted binary file can be read by the P_SURF module. The formatted 
text file can be used to manually check the output, or it can be read by the EXCEL 
modules as described in the next section. 

The P_SURF module reads in the A_SURF and RESPONSE output files, and 
uses the same flux routines in BUMPERII-SHIELD to calculate the 
flux-area-time (NAT) array. A text based contour map is generated which 
should be compatible with any FORTRAN platform, as well as a text file which 
may be used for sophisticated graphics packages. Examples of the contour plots 
wifi be shown in the examples in the next section of this paper. 

The final FORTRAN module is R_PLOT5. The source listing is given in 
Appendix C* It is used to translate BUMPERII-RESPONSE output files to text 
formatted files. The text formatted file is set up at 0.5 km/s and 5 degree 
increments rather than the 0.25 km/s and 5 degree increments used by 
RESPONSE. Commas are used as delimiters to ease import by EXCEL. 

4.1 Platform Selection 

SD_SURF and BUMPERII have been compiled on VAX and Macintosh 
computers. Language Systems FORTRAN version 3.0 was used for compilation 
on the Macintosh with minimal changes from the original FORTRAN code. 6 
Limitations to Language Systems FORTRAN are given in Appendix D. 

The Macintosh applications cannot handle finely resolved models or 
meteoroid analyses due to memory limitations. However, this does not affect the 
RESPONSE module. Debris and meteoroid analysis with 145 threats in 
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BUMPERII can be used on models with 2100 elements. If partial shading is 
used in BUMPERII, additional elements are created so the total number of 
elements must stay within the allocation. 

The Macintosh SD_SURF and BUMPERII applications make it convenient 
to share data with EXCEL. However, many mainframe computers are 
networked with Macintosh and IBM compatible PCs. The FORTRAN programs 
may be run on a mainframe and the text files may be transferred to a personal 
computer and used in an EXCEL analysis or for import into any available 
charting package. 

Language Systems FORTRAN did not support jumping into IF-THEN or DO 
loops, as allowed by VAX FORTRAN. However, this requires only 3 minor 
changes to the original BUMPERII code, and it has been requested that these 
changes be incorporated in future releases of BUMPERII. Furthermore, 
Language Systems FORTRAN and Absoft FORTRAN for the Macintosh require 
that the variable size match between the calling program and the subroutine 
dummy variables. A REAL*8 variable in the main program must be matched 
with a REAL*8 dummy variable in the argument list of the called subroutine, 
otherwise wrong numbers will be transferred. The same holds true for integer 
variables as well. FORTRAN-LINT by Information Processing Techniques 
Corpation, (Palo Alto, CA (415)-494-7500) provides a means of checking that this 
argument mismatch is detected, since it is not identified by either Macintosh 
compiler. 
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5 SD_SURF - EXCEL 3.0 VERSION 

The the EXCEL version offers an alternative to the FORTRAN version. The 
final product is not as fast or as “turn key” as a FORTRAN application. 
However, it has the advantages of a spreadsheet. Customization and error 
checking is very easy and there is easy access to graphing. 

The structure of the EXCEL version is shown in Fig . 8. The backbone of the 
PNP calculation is the PNP_Template. There are several different areas on the 
worksheet: 

• Ballistic Limit surface, diameter to penetrate in increments of 0.5 km/s and 
five degrees of obliquity. (It is created on a Ballistic Limit Template or 
imported from RESPONSE via R_PLOT 5.) 

• Environment definition including year, solar flux level (explicit or 
calculated), and altitude. 

• Flux calculation for each diameter in the ballistic limit surface. (This is a 
function macro that is defined on the function macro worksheet.) 

• Area Surface, A(V,p), created using Area_Maker Macro, or imported from 

A_SURF. 

• Flux • Area • Time, N-A-T, for each V and p. (The summation of these cells 
is used to calculate the PNP.) 

Function macros operate as subroutines and are used to calculate ballistic 
limits or flux for appropiate input values. Command macros provide control of 
files and the pasting of named arrays from ballistic limit and area templates to 
the PNP_ Template. Any of the templates may be customized and saved by any 
ram p for later use. Hardcoding the names would make it easier for a new user, 
but the flexibility provided by using general names was deemed to be more 
important. 

The Area Surface maybe created on the Area_Template using the 
Area.Maker Macro. The analyst selects the geometry desired from a pull-down 
menu. The standard geometries are shown in Fig. 9. The specific geometry is 
entered in customized dialog boxes shown in Fig 10. Each facet is analyzed at 
each velocity increment. This is effectively 64 threats (at equally spaced 
velocities), compared to the 45 threat default in BUMPERH (at equally spaced 
angles from the direction of flight). 

SD.SURF for EXCEL lacks some of the features of BUMFERIL BUMPERII 
must be used for shadowing analysis in GEOMETRY, multiyear flux averaging 
in S HIE LD, or the extensive iterations required to run PEN4 in RESPONSE. 
However, the GEOMETRY and RESPONSE output may be imported via the 
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FORTRAN A_SURF and R_PLOT5 programs. Multiyear flux calculations 
be programmed into the EXCEL macros with a corresponding increase in 
analysis time. 


can 
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6 INSTALLATION 


6.1 Installation - SD_SURF Macintosh Applications 

6.1.1. Select One of the Application Disk Options 

The selection of which set of applications to run depends on the machine 
processor, co-processor, and available RAM. 

The MacBUMPERII version 1.3 applications supplied require a either 2.2 
megabytes or 6 megabytes (MacBumperIIvl3M_Large) of ROM and a math 
coprocessor. Therefore 8 Meg ROM is recommended for the largest BUMPERII 
option, and 5 Meg ROM should handle all other options. (Virtual memory was 
not tested.) The SD_SURF programs are smaller than BUMPERII version 1.3 
and will handle the output from any BUMPERII option. CONTOUR will not 
run. The following limits apply: 

MacBumperllv 13M_Large (and SD_SURF v. 1.6) 


IELM 

= 2100 

number of elements 

ITH 

= 145 

number of threats (good for meteoroids) 

IPFUNCS 

= 31 

number of PEDS 

MacBumperllv 1 3M_Small 


IELM 

= 700 


ITH 

= 145 


IPFUNCS 

= 12 



If different options for array sizes, no coprocessor, etc. are required, and you 
do not have a Language Systems FORTRAN compiler, please request a 
customized application. 

If Batch file processing is desired on the Macintosh (useful for RESPONSE 
surface generation) create a batch.com file without comment lines. Then strip 
out excess spaces " " using a word processor! This will avoid some errors in file 
names and whether English or Metric is read properly. Then use option 8 to 
read in the file. 

All of the files should be copied to a new folder on your hard disk. Dragging 
the floppy on top of the hard disk will put all of the files in a folder on the hard 
disk. 
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6.1.2. Install the SuperTab Universal Files 

Four SuperTab Universal Files were stuffed and placed on the "SD-Surf 
EXCEL / Stuffed UNIs" disk. The files were placed in a self-unstuffing archive 
using Stufflt™ Deluxe by Aladdin Systems, Inc. The files are: 

• MB1 7-ALLUNI 

• MB17-CR1.UNI 

• MB6-CR1.UNI 

• PLATE.UNI 

The first three files were distributed with BUMPERII. The plate edge 
coordinates in the last file may be edited by hand for a plate of any size and 
orientation. 

Open or "Double click" the application (Stuffed SuperTab.Uni Files.sit) and the 
files will be unstuffed. They should be placed in the same folder as your 
BUMPERII application. When the files are unstuffed they require 
approximately 1,800 K on your hard disk. If PLATE.UNI is already there, it is 
OK to overwrite it. 

6.2 Installation ■ SD_Surf VAX FORTRAN 

The source code is provided on both Macintosh and IBM compatible PC 
formatted disks. The source code and applications should be transferred to the 
VAX and compiled. The SD_SURF programs version 1.5 work with any 
BUMPERII version 1.2a output. The SD_SURF programs version 1.6 work with 
any BUMPERII version 1.3 output. The BUMPERII versions 1.2aM and 1.3M 
(Martin Marietta Modified) contains the features necessary to compile on the 
Macintosh. Version 1.2aM also fixes one error in BUMPERII regarding the 
memory allocation for the variable IDG. Version 1.3M fixes an error in function 
PRV (with negligible impact on overall PNP). 

Note that on the IBM compatible PC formatted disk, the file named 
Solar_Flux.Dat was renamed due to PC naming restrictions. 

The SD_SURF files should be compiled with large enough variables to open 
BUMPERII output files (in terms of number of elements, threats, and PID 
cases). These may be adjusted in the COMMON* .BLK files. 

6.3 Installation - SD_SURF EXCEL 

The EXCEL files are provided on both Macintosh and IBM compatible PC 
formatted disks. The files should be copied to a folder or directory on your hard 
disk. 
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7 Performing a FORTRAN Analysis 

To perform an analysis, the GEOMETRY and RESPONSE modules of 
BUMPERII should be run as described below. Then A_SURF and P_SURF 
should be run. R_PLOT5 should be run to plot RESPONSE data or prepare data 
for EXCEL. 

7.1 Running Applications on the Macintosh 

The applications are compiled to run in the background under Multifinder 
or in System 7. This slows down the calculations somewhat, but it allows other 
work to be performed while the analysis is being performed. The calculation of 
30 PIDs using RESPONSE is very time consuming. 


WARNING: Unlik e the VAX, if you save files with the same name on the 
Macintosh, the earlier file will be deleted! 


To stop an analysis, hold down the "Apple” button and type a period. This is 
the standard Macintosh command to stop a process. 

When the code stops, the results in the window may be printed directly from 
the application, or they may be saved to review or print with any text editor. The 
results should be viewed using a uniformly spaced font such as Monaco or 
Courier. 

Double clicking on a text file may not open it directly. Instead start any 
application that will open text files, and then open the files from that 
application. If using EXCEL, open using the comma delimited option for TEXT 
files. 

There are two additional features on the Macintosh version of BUMPERII. 
The FINDER open box may be accessed with a "?" and input from a text file is 
possible for "batch" processing. These features are described in the following 
section. 

7.1.1. Finder Open Box 

On the VAX, when BUMPERII requests a filename from the analyst, he 
may respond with a "?" for a print out of files in the directory- This feature was 
retained in SD_SURF modules for the VAX. 

On the Macintosh, a "?" response brings up the normal FINDER open box. 
The analyst may then scroll to the file of choice or type the first letters of the file 
to jump down the list. 
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7.1.2. Input from a BATCH.COM File 

The analyst may create a file using the existing BATCH.COM option in 
BUMPERII, and then use that file for input by using the new eighth option in 
the BUMPERII initial options list: Read from a BATCH.COM file. The initial text 
responses in BATCH.COM are ignored by BUMPERII and the analysis 
continues from there. This feature is particularly useful for generating 
RESPONSE output files. The BATCH.COM file may be edited using a text editor 
instead of repeating the BATCH.COM process. 

7.2 BUMPERII GEOMETRY 

The GEOMETRY subroutine is run as normal in BUMPERH. 

7.3 BUMPERII RESPONSE 

The operation of the RESPONSE subroutine is unaffected. A RESPONSE 
analysis to support a SHIELD analysis is perfectly acceptable. However, it is not 
necessary to create a certain number of PIDS as required by SHIELD. Only one 
shield is required for an analysis of a specific range of elements. Another option 
is to create a series of shield for parametric analyses (eg. step through bumper 
and/or rear wall thickness and/or spacing). 

7.4 A_SURF 
Run A_SURF. 

A typical input session is shown in Appendix I. The environment options 
are identical to BUMPERII and described in the BUMPERII user's manual. 


NOTE: Unlike, SHIELD, multiple element ID ranges are lumped together by 
AJSURF, and multiple PIDs in all of the selected ranges are ignored. The 
facets in each range are summed to only one area array regardless of PID. If 
different PIDs must be analyzed separately, (eg. a window along a module) the 
analyst must select only those elements with the desired PID. The analyst must 
know the model! 


The text file may be reviewed with a text editor, or used by EXCEL or an y 
other charting package. 
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7.5 P_SURF 

Run P_SURF. The A_SURF binary file (.ASB) is used for input, as is a 
RESPONSE output file (.RSP) . 

A typical input session is shown in Appendix I. The environment options 
are identical to BUMPERII and described in the BUMPERII user's manual. 

The text based carpet plot is output to the screen as shown. The analyst may 
use the A_SURF output with any single P3D or all of the PIDs in the RESPONSE 
output. The latter case is useful for parametric studies. 

The output file may be reviewed with a text editor, or used by EXCEL or other 
charting package. It contains both the text based carpet plot and the calculated 
values. The description of all PIDs is included in the output due to the structure 
of RESREAD subroutine used from BUMPEREI-SHIELD. 

It should be remembered that a group of cells with moderate values of NAT 
can have a greater influence on the overall PNP than a single cell with 
maximum NAT. 

7.6 R_PLOT5 

Any or all of the PIDs in a RESPONSE output file may be converted to text 
format by R_PLOT5. Run R_PLOT5. Select the Response output file and select 
one or all of the PIDs for output. The description of all PIDs is included in the 
output due to the structure of RESREAD subroutine used from BUMPERII- 
SHIELD. 
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8 PERFORMING AN EXCEL ANALYSIS 

The EXCEL analysis may be performed on either a Macintosh or a PC. 

If A_SURF and R_PLOT5 text files are to be used, the PC must import from 
a VAX or other computer on which the the codes can be compiled. The 
Macintosh may import from a VAX or use the Macintosh application files. 

There are min or differences between the Macintosh and Windows EXCEL 
spreadsheets and macros. The shorter PC names were adjusted in the macros. 
The graphics in the AREA_Template on the Macintosh would not convert to the 
PC. A text description is included. 

General guidelines are to open the Macros first (SD_SURF and 
AREA_MAKER) and let them open the templates (or guide you through the 
process) so that the names can be recorded to the macro sheets. Use the pull 
down commands to change sheets or save, so that the current names can be 
recorded. 

Watch the message box at the lower left for instructions. 

The Macros are documented in Appendices E, F, and G. Typical output is 
given in Appendix H. 

The analyst should be famili ar with EXCEL. These features should be 
reviewed in the EXCEL manuals: 

• Command and Function Macros. 

Command Macros can automatically perform almost any function you 
would do manually in EXCEL. The macro commands may be accessed 
by "Run" under "Macro." Most are available installed in pull down 
menus. 

Function Macros perform like a sub-routine in BASIC or FORTRAN. 
Variables may be passed to the function macro and one or more 
variables may be returned. Function macros are used by the worksheet 
templates to perform calculations. Function macros appear at the end 
of the list generated by the Paste Function command, and are available 
for pasting into any worksheet when the macro sheet is open. The 
arguments for the function may be abbreviated in the name, or may be 
determined by looking at the macro sheet. They are identified by the 
ARGUMENTS function in the order they are received. 

• Hiding files - The "Hide..." and" UnHide..." commands under 
"Window" on Excel can be used to keep your work area neat or to let you 
get to the inner workings respectively. If after you make a change you 
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want the sheet to open up hidden the next time you run it, just change a 
cell (e.g. add and delete a space), hide the sheet (without saving it), quit, 
and say yes when it asks if you want to save changes. It will be hidden 
the next time you open it. 

• Changing file links (especially useful for charts or function macros) is 
under the FILE menu. 

• Automatic/Manual recalculation - how to change (Options - Calculation) 
and avoid on saving or printing (Apple-period stops recalculation on 
saving). 

• Auto_open/close macros. These run automatically at the open or close 
of a macro sheet. Pull down menus and opening dialog boxes are added 
(or deleted) with these macros. 

• Excel Startup Folder - Files place in this folder (in the System folder) will 
automatically be opened at the start of an EXCEL session. The 
SD_Function_Macros may be moved here for general usage. If this is 
done the SD_SURF Auto_Open Macro should be changed so it will not 
try to look for the file. 

• Open/Save File Options - Review Open comma delimited text files (CSV = 
comma separated variables) and Save.As Options. See Problems 
Section. 
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8.1 SD_SURF Macro / PNP_Template 

Open the SDJ3URF Macro first. An auto_open macro will try to open the 
SD_FUNCTION_MACRO sheet. If it fails the analyst is requested to open the 
sheet. The auto_open macro asks the analyst to open a PNP_Template. (NB: 
prompts are in the Message window at lower left of the screen) A 
PNP_Template is provided. If a particular ballistic limit or effective area 
surface has been included it may be saved by a new name and opened by the 
analyst the next time. 


A pull down menu is installed with these commands: 


SD command 

Function (This is displayed in the Messaqe Bar.) 

Open R_Plot5 Output 

Opens R_PL0T5 output to Paste to PNP/Flux Template 

Open BL Template 
Ballistic Limit to PNP 

Keeps track of which file to use as Ballistic Limit template using macros. 
Copy Ballistic Limit from Active BL Template to PNP/Flux Template 

Open Area Maker Macro 

Use Area Maker Macro to open A_Surf output or create new geometries. 

Open PNP Template 
Save PNP Template 
Set PNP/Flux Template 

Keeps track of which file to use as PNP/FLUX template. 
Keeps track of which file to use as PNP/FLUX template. 
Keeps track of which file to use as PNP/FLUX template. 

Close SD Surf Macro 

Closes Macro and deletes SD menu. 


These are the instructions included on the PNP_Template: 


QUICK INSTRUCTIONS: 

• BALLISTIC LIMIT Calculations 

Use Ballistic Limit Worksheet & BALLISTIC LIMIT TO PNP (in Pull Down Menu) or... 
Run RESPONSE and R_PLOT5 and Use OPEN R_PLOT5 OUTPUT (In Pull Down Menu) 

- GEOMETRY Analysis 

Use Area Maker Macro to make a new table or open GEOMETRY/A_SURF output 

- ENVIRONMENT Enter in 015*021 this worksheet (or Velocity distribution on Area_Tempiate) or... 

Change SD Flux Function MACRO (and Quick Flux macro if necessary) or... 

Change flux formulas D79-V1 1 0 (Fill right and down) 

- Use the PULL Down Menu on Right end of Menu Bar and watch Message Bar at bottom. 


Printing of the results is set up for a Macintosh LaserWriter. Other printers 
must be formatted by the analyst. The print area contains some pages which 
are only filled under certain conditions (eg. pasting from the Area Template). 
These may be deleted from the Print Area if desired. 





8.2 Ballistic Limit 

The Ballistic Limit Template may be used to create a surface. Only the JSC 
Whipple Bumper and Multi-shock equations are include in the 
SD_Function_Macro because the PEN4 routine requires too much computation 
for an interpreted spreadsheet. The Ballistic Limit Template can be used to 
"breadboard" new equations or custom modify a RESPONSE / R_PLOT5 text file. 
Note that BL_Paste copies specific cell ranges rather than named areas if you 
wish to modify the template or create a new template. 

The SD pull down menu can be used to open the template or the R_PLOT5 
text file and paste the results to the PNP_TEMPLATE. 

8.3 AREA_MAKER MACRO and Area Template 

Open the Area Maker Macro first. An auto_ open macro will then request 


the analyst to open the Area Template. 

A pull down menu is installed with these commands: 


AreaS Command 

Status Bar Text 

Clear Arrays 

Clears Area_Array & Description_Array on Area Template 

Rectangle 

Adds a Rectangle to Area_Array 

Disk 

Adds a Disk to Area_Array 

Cone 

Adds a Cone to Area_Array 

Cylinder 

Adds a Cylinder to Area_Array 

Sphere 

Adds a Sphere to Area_Array 

Whole Sphere 

Adds a complete sphere to Area_Array. Faster than Sphere! 

Open Template 

Opens a file to be used as the Area Template 

Save Template 

Saves Template. Identifies new name as the Area Template 

Set Template 

Identifies active document as the Area Template 

AreaS to PNP 

Transfers Effective Area to PNP Template. 

Open A_SURF file 

Opens A_Surf/ Output and puts in 0.5 km/s increments. 

Close AreaS 

Closes Area Maker Macro. 


The pull down menus are used to create an area array or open an A_SURF 
text file. Figures 9 and 10 shows the geometries and the Dialog Boxes used to 
describe each geometry. The analyst is advised to take advantage of symmetry 
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and the Area Multiplier rather than spending extra time calculating symmetric 
facets. (Eg. a cylinder with its axis along the flight direction can be modelled as 
one fourth of a cylinder and an area_multiplier of 4. With one axis of rotation, 
only one half the cylinder need be modelled.) If a different inclination is desired, 
then the analyst need only put the value on the template and the velocity 
distribution will re-calculate. The cells refer to a function macro on the 
AREA_MAKER Macro. The functions, which still need to be normalized, are 
next to the velocity distribution but have zero cell width. Select adjacent cells 
and set the width of all of them to standard to see the function cells. 

The effective area array may then be copied to the PNP_Template. If the 
desired PNP_Template is already open it will be replaced by the last saved 
template. (If it has not been saved, when the "Revert" warning box comes up 
select "Cancel" to stop the macro.) 
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9 PROBABILITY STUDIES 


9.1 Effective Area 

The A_SURF program and the Area_Template calculate the effective 
exposed area, f(V)-A(V,|3), at each velocity and obliquity. 

Figure 11 illustrates the analysis of a flat plate that is oriented edge on to the 
direction of flight. The first part of the analysis is the calculation of the projected 
area, A(V,{3), relative to each impact velocity direction. Figure 11 (b) shows the 
probability, f(V), associated with each impact velocity. Figure 13(c) shows the 
final result, f(V)-A(V,p), after niultiplying the projected areas by the relative 

probability. 

A_SURF reveals the coarseness, or granularity, in the spacecraft model and 
debris threat in the GEOMETRY analysis. Solving the first problem (a plate 
edge on in Fig. 11) using BUMPERII produces Fig. 12. The default of 45 threat 
directions in BUMPERII gives only 22 velocities due to symmetry. There are 
now gaps along the velocity axis. The “waves" on the surface are an artifact of 
the coarseness of the modelling. This does not imply the overall model is in 
error, but rather it shows how BUMPERII and SDJSURF are querining the 
ballistic limit surface. If the “wave” spacing is small compared to changes in 
the ballistic limit surface, then the overall PNP calculation is correct. 

Since the distributions are not smooth, the analyst must recognize that 
adjacent cells with moderately high impact rates can be more significant than a 
single cell with the maximum impact rate. 

The AJ3URF output can be used to double check the original SuperTab 
model. If some elements were entered with normals in the wrong direction 
there may be unexplained gaps in the model. 

The sphere is an easy shape to analyze since it looks the same from any 
direction. (That is why it is a separate option in the AREA_Maker macro.) The 
projected area from any direction is shown in Fig. 13. Also shown is what it 
would look like if modelled using facets that cover 15 degrees of curvature. The 
granularity, or waviness is obvious. 

The sphere is also a good representation of the surface area of any spacecraft 
which is not Earth oriented. It will appear to be randomly tumbling to the debris 
flux and average out to the oblique impacts on a sphere with the same surface 
area. 
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9.2 Penetration Analysis 

Figure 14 shows the PJSURF analysis of the effective area in Fig. 13. This is 
an example of the text based contour plot. The ballistic limit was the RESPONSE 
output for a 0.050 inch bumper, 4 inch standoff, MLI, and a 0.125 inch 2219 
alu minum rear wall, using the regression equation and default analysis of 
Wilkinson momentum failure. 

Figure 15 is an illustration of the velocities and obliquities for which most 
penetrating impacts could occur on one early concept for a space station module. 
(The same RESPONSE ballistic limit surface is used as in the previous 
example.) It can be noted that BUMPERII analyzed the PNP for one year as 
99.88305%, while P.SURF calculated it as 99.88475%. The effective area was 
identical, but as mentioned previously, partitioning the area to discrete velocities 
and obliquities will affect the result, just as assuming a curved surface is 
represented by a flat facet. The probability of penetration (POP = 1 - PNP) was 
0.11695% for BUMPERII to 0.11525% for P_SURF. The percent change between 
the two is 1.5% of the POP. This difference is negligible. 
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10 Problem Resolution 

This section is meant to help trouble shoot any errors encountered in an 
analysis. 

10.1 Macintosh Applications 

There are only limited options if a FORTRAN compiler is not available. 
(Language Systems FORTRAN version 3.0 was used to compile the 
applications.) 

RAM requirements were suggested by the Language Systems FORTRAN 
linker. If any unusual errors are encountered, the RAM allocation may be 
increased using the "Get Info" command under "File" in the "FINDER." (The 
application must be closed for this to work.) If available memory is a problem 
these techniques may be used to increase available memory: 

• Run using the FINDER only. Use System software 6.X, and turn off 
Multifinder. 

• Remove non-essential software from the System folder. 

• Use Virtual memory. The software has worked well using VIRTUAL by 
Connectix to set memory to 8 Megabytes on a machine with 5 Megabytes 
installed (running System Software 6.07). (However, at the relatively low 
price of RAM, a hardware upgrade should be considered.) It has not 
been tested using System 7 virtual memory. 

All data files should be kept in the same folder as the applications. Use of 
the Finder open box by responding with a ”?" may be able to use files outside the 
application folder, but this has not been tested. 

10.2 EXCEL Macros and Templates 

If a Macro halts you may unhide the macro, using the "Window" 
command, and see what operation it was attempting to perform. Display values 
to see cell results. On the Macintosh the "Apple - will toggle between formulas 
and values. (NB: is a single backquote at the upper left of the keyboard under 
the mark. It is not an apostrophe.) 

10.2.1. EXCEL Macros - Error on Open SD_SURF or AREAJI/IAKER 

If an error occurs on opening SDJSURF or AREA_MAKER, the HIDE0 
command may be at fault. If either document is hidden and any changes are 
saved when quitting from EXCEL, the document will open as hidden. Then 
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when running the HIDEO command, it will either hide an open sheet, or an 
error will occur. To avoid this problem: 

• Save changes to the macro with it unhidden. The macro will then open 
normally and hide itself. Do not save changes when quitting EXCEL 
unless it is unhidden. You should not have to save changes normally. 
(To avoid being asked if you want to save changes go to the Auto_close 
macro and replace the "x" in the "x SAVE.AS(,0)" line with an equal 
sign. This will stop you from being asked if you want to save changes 
when quitting EXCEL.) 

* Disable, clear or delete the HIDEO command in Auto.Open. Save the 
document as hidden. (Save changes when quitting EXCEL when the 
macro is hidden. Make sure the "SAVE.ASO" command in Auto_Close 
is disabled.) 

• Work around the error on open by continuing rather than halting. 

* Work around by halting, unhiding the macro, and the run Auto.open 
using the MACHO pull down menu. 

10.2.2. EXCEL - Errors on Opening R_PLOT5 or A/P_SURF Output 

When opening text files, EXCEL puts everything in the first column until a 
tab is encountered. The FORTRAN files are set to write commas after every field 
in the arrays. Do not open directly from the Desktop or Finder. Start EXCEL 
and use the Open command. Before opening the file use the Text options button 
to tell EXCEL that it is comma delimited. The macro commands in SDJ3URF 
and AREA.MAKER should do this automatically. 

Display of FORTRAN text files will be enhanced with the use of a uniformly 
spaced font such as Monaco or Courier. Use Styles to redefine Normal, or select 
the entire sheet and change the font. 

Data in one column may be broken into many using EXCEL's Parse 
command or the Smart Parse in the Flat File Macro. Consult the EXCEL 
Manuals. 

10.2.3. EXCEL - Updating Links 

If files are moved from different locations, EXCEL can lose track of where 
function macros are. It may be necessary to change links to the current 
function macros. This is explained in the EXCEL Manuals. 
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10.2.4. EXCEL - Hints for Custom Analyses 

The EXCEL user's manual should be consulted for customization hints. 
Paste_Special and the Table commands are particularly useful. Setting a color 
monitor to black and white (in the control panel of a Macintosh) can also speed 
up response time if the screen is updated or redrawn often. (Several macros set 
ECHO(FALSE) to speed up recalculation.) 

Custom ballistic limit surfaces may be easily generated using the Copy and 
Paste_Special commands. This can be used to add, multiply or replace the 
values in a selected range of cells. See the EXCEL Manual for details. 

The Table command can be used to parametrically vary input parameters 
(eg. altitude or year) and record output (eg. PNP). A macro is available from the 
author if input and output are on different sheets, or if the output already 
depends on a table. 
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Fig. 2. Angular and velocity distribution of debris flux 
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Fig. 5. BUMPERII Modules, Input and Output 
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Fig. 6. SSF Model for BUMPERII-GEOMETRY analysis 
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Fig. 11. AREA_MAKEE analysis of a plate edge on to x 

(The surface normal is in the y axis direction on Fig. 9.) 

a) The projected areas in each threat direction. 

b) The probability distribution (as in Fig. 2.) 

c) The effective area at each velocity and obliquity. 
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Fig. 13. Area Analysis of a sphere 
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Fig. 15. P_SURF analysis of a SSF module 
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Appendix A. P_SURF Source Code 
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P_SURF Usting 


Listing from Language Systems FORTRAN (Version 3.0 Tue, Nov 19, 1991) 

Sat, Sep 12, 1992 1:27 PM 

Options OFF: A BKG-0 CASE CCD CCX CRAY DYN E EXTENDED F77 12 LINEFEED MC68020 MC68040 
MC68881 NOIMPLICIT OV R S SANE SYM T72 TRACE W X Z 
Options ON: ANSI C L SAVEALL U VAX 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C C 

C P.SURF VER 1.6 8/23/92 C 
C C 

C MARTIN MARIETTA C 

C MANNED SPACE SYSTEMS C 

C C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C 
C 

c 

C P_SURF VER 1.6 will compute the Probability of No Penetration (PNP) by 
C space debris for a designated area on a spacecraft. P_SURF calculates 
C the flux (N) which penetrates the spacecraft multiplied by the exposed 
C area (A) and the exposure time (T) as a function of velocity & obliquity. 
C One data point on the surface represents the sum of all projected 
C areas that can be hit by a particle at a certain velocity and obliquity, 

C multiplied by the fraction of the total flux that will cause a 
C penetration and the exposure time. 

C 

C P_SURF VER 1.6 works with BUMPERII Version 1.3 
C 

C The code requires two files generated by other code as input. One 
C output file is from the A_SURF code. This file contains a selected 
C exposed area of a spacecraft, summarized in a matrix as a function of 
C velocity and obliquity. The other required file is the output file of 
C the RESPONSE portion of the BUMPERII code. This file contains the 
C ballistic limit (minimum diameter to penetrate) as a function of velocity 
C and obliquity. Multiple shield designs may be included in the RESPONSE 
C output, and the PNP calculation may be performed for a specific shield 
C or for each shield in turn. 

C 

C The RESREAD and FLUX subroutines are taken directly from BUMPERII 
C version 1.2a except for the COMMONPS.BLK instead of C0MM0N2.BLK 
C Other modules were modeled after BUMPER for continuity. 

C BUMPER was developed under the NASA contract 'Integrated Wall Design 
C Guide and Penetration Control Plan' by M. A. Wright & A. R. Coronado. 

C 

C Note that peaks or waves in the area, flux or probability surfaces 
C may be artifacts produced by granularity in the spacecraft model 
C or threat models used in the GEOMETRY portion of BUMPER. Surface 
C contours reflect the way BUMPER interogates the ballistic limit 
C surface created by RESPONSE. 

C 

C P_SURF code was developed under the NASA contract 'Structural Damage 
C Prediction and Analysis for Hypervelocity Impacts Study' under the 
C direction of N. Elfer. 

C 
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P_SURF Listing 


0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 


C Version 1.5 corrects an error in the PNP calculation (found by Ben 
C Hayashida). The FLUX from BUMPERII version 1.2a and 1.3 returns the 
C Debris flux for the old environment, but the flux times the exposure 
C time for the new environment. The was not recognized in version 1.4. 
C 

C Version 1.6 reads BUMPERII ver. 1.3 Response files 
C 

C Include module COMMONPS variable list 
C 

C alt = operating altitude , km 
C asfile = the output Area Surface filename 

C bine « impact angle (beta) increment , deg 

C conf ■ text description of wall configuration 

C diam * critical diameter , cm 

C etime ■ spacecraft exposure time , years 

C fix = number of impacts per projected area per year of diameter D 

C or larger 

C inclin « orbital inclination, degrees 

C idens * debris density, 1- constant density, 2-size function 
C ienv « environment type, 1- JSC 20001&6000, 2- 7/90 memo 
C it - current threat case 

C itype * analysis type , 1- debris, 2-meteoroids 
C nb * number of angles in the response array 

C nc « number of wall configurations in the response array 

C nee - the total number of exposed elements summed 
C nr * number of element ranges to sum over 

C nt * number of threat cases 

C nv = number of velocities in the response array 

C pid = the property id associated with all elements of the ranges 

C psfile « the Probability (Flux Area Time) Surface filename 

C rsfile = the Response Surface filename 

C sflevel - solar flux level 

C units - english or metric 

C vr * impact (relative) velocity , km/sec 

C vine - impact (relative) velocity increment , km/sec 

C 

C Arrays 
C 

C area ■ array containing the value of the surface area for each 
C element, sq-meters 

C areas - the area surface containing the summed area fractions for 
C each velocity and obliquity for all elements in the 

C specified element id ranges. (vr.beta) 

C exposed = list of the number of exposed elements for each threat 
C angle 

C fluxs * array containing flux corresponding to the diameters 
C in the response surface (for each velocity and obliquity) 

C geometry - array containing the values of the cosine of the impact 

C angle for each exposed element for each threat angle. 

C id = array containing the values of the element and property id 
C for each element 

C 1- id 

C 2- pid 

C natmax * maximum Flux*Area*Time on one nats surface, [impacts] 
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0103 C 

0104 C nats - flux*area*time surface as a function of 

0105 C C velocity, obliquity, pid), [impacts] 

0106 C ner * array containing the range number for each element 

0107 C pids = PID (see scalar) number to process 

0108 C point = array of the element numbers corresponding to the elements 

0109 C in the geometry array. 

0110 C range = array containing the starting and ending elment id for each 

0111 C range to sum over 

0112 C 1-starting id 

0113 C 2- ending id 

0114 C response = array containing the values of the critical diameter as 

0115 C a function of impact angle and velocity, (vr, beta, pid) 

0116 C standm - shield stand-off, cm 

0117 C shden - shield density, g/cc 

0118 C shthkm - shield thickness, cm 

0119 C tnat - total flux * area * time for each PID and the areas array 

0120 C vwden « vessel wall density, g/cc 

0121 C vwthkm ■ vessel wall thickness, cm 

0122 C 

0123 C 

0124 C Main Program Variable List 

0125 C 

0126 C Scalers 

0127 C 

0128 C answer - user input 

0129 C areae - the area times the threat probability 

0130 C ob - Obliquity for the current threat/element. 

0131 C 

0132 C 

0133 C 

0134 LOGICAL FIRST 

0135 C 

0136 CHARACTER*80 ANSWER 

0137 C 

0138 INTEGER*2 IC 

0139 C 

0140 C REALM PROB 

0141 C 

0142 INCLUDE 'COMMONPS.BLK' 

0143 C 

0144 C Initialize the Velocity increment and number of velocities 

0145 C 

0200 VINC-0.25 

0201 NV=68 

0202 C 

0203 C Initialize the Obliquity increment and number of angles. 

0204 C 

0205 BINC-5.0 

0206 NB*19 

0207 C 

0208 C 

0209 C 

0210 IBATCOM = 0 
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0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 


C 

C Write header to screen and read in orbital parameters 
C 

CALL PSINPUT 
C 

C Read in the A_SURF output file 
C 

CALL ASREAD 
C 

C Calculate the total effective exposure area. 

C 

DO 10 12-1, NB 
DO 10 Il-l.NV 

taeff - taeff + AREAS(I1,I2) 

10 CONTINUE 
C 
C 
C 

C Read in the Solar flux data 
C 

IF C ISol . EQ.l.OR.ISol .EQ.2 )CALL SOLREAD 
C 
C 

C Read in the RESPONSE output file. This is identical to 
C the RESREAD subroutine in BUMPER. 

C 

CALL RESREAD 
C 

C Verify the Response file has the same increments as the Area_Surface 
C 

IF (BINC.NE.5.0 .or. VINC.NE.0.25 ) THEN 

WRITE (6,*)' RESPONSE FILE HAS DIFFERENT FORMAT THAN AREA.SURF!* 
STOP 
ELSE 

CONTINUE 

ENDIF 

C 

C Check array size and set to A_SURF size 
C 

IF (NV.LT. 68 .OR. NB.LT.19 ) THEN 

WRITE (6,*)' RESPONSE FILE IS SMALLER THAN AREA_SURF ! ’ 

WRITE (6,*) NV,NB 
STOP 
ELSE 
NV-68 
NB-19 
ENDIF 
C 

C Determine the RESPONSE PIDs to process. 

C 

C If number of cases CNC) is only one then proceed. 

C 

IF (NC.EQ.l) THEN 
PIDSCD-l 
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0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 


WRITE C 6,20 ) 

20 FORMAT (/IX, 'The one case in the RESPONSE file will be used' ) 
C 

C For multiple PIDs select one or all. If only one, NC is set to 1. 

C Write number of PIDs and first PID in A_SURF to screen. 

C 

ELSE 

WRITE ( 6,25 ) NC 

25 FORMAT (/IX, ’The Number of PIDs in the RESPONSE file is ’,14) 
WRITE ( 6,26 ) PID 

26 FORMAT (/IX,' The first PID processed by A_SURF was ’.14) 

C 

WRITE ( 6,30 ) 

30 FORMAT (//IX, ’ Enter <CR> to use the A_SURF PID. 1 

1 /IX, 'Enter the PID number to use a specific PID.', 

2 /IX, 'Enter <A> to use all PIDs.’) 

C 

READ ( 5,35 ) ANSWER 
35 FORMAT (A) 

IF ( ANSWER(1:1).EQ. ' ' ) THEN 
PIDS(l) = PID 
NC=1 

ELSE IF (ANSWER(1 : 1) . EQ . ’ A ' .OR. ANSWER(1:1).EQ. 'a') THEN 
DO 40 11=1, NC 

PIDS(Il) = II 
40 CONTINUE 

ELSE 

READ ( ANSWER(1 : 80) ,45 )PIDS(1) 

45 FORMAT ( BN, 12 ) 

NC=1 

ENDIF 

C 

ENDIF 

C 

C 

C Calculate the Flux surface using the critical diameters from 
C the Response surface 
C 
C 

DO 120 13=1, NC 
NATMAX(I3) = 0 
TNAT(I3) = 0 
DO 100 12=1, NB 
DO 100 11=1, NV 

DIAM=RESP0NSE(I1 , 12 , PIDS(I3)) 

CALL FLUX 

FLUXS(I1,I2,I3) = FLX 
C 

C Calculate the FLUX x AREA x TIME surface 

C (NOTE that FLUX returned FLUX x TIME for the new environment) 

C 


IF (IEnv.EQ.l) THEN 

NATS(I1,I2,I3) = FLUXS(I1,I2,I3)*AREAS(I1,I2)*ETIME 
ELSE 
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0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 


NATS(I1,I2,I3) = FLUXS(I1,I2,I3)*AREAS(I1,I2) 
END IF 


C 

C Calculate the total FLUX x AREA x TIME 
C 

TNAT(I3) = TNAT(I3)+NATS(I1,I2,I3) 

C 

C Find the max NAT for the PID number 
C 

IF (NATMAX(I3) . LT . NATS(I1 , 12 , 13) ) THEN 
NATMAXCI3) - NATS(I1,I2,I3) 

ELSE 

CONTINUE 

ENDIF 

C 

C 

C 

100 CONTINUE 
C 

C Calculate PNP for Ranges in Exposure Surface 
C 

PNP(I3) = (DEXP(-TNAT(I3)))*100.D0 
C 

120 CONTINUE 
C 

C Print out the carpet plot 
C 

CALL CARPETPLOT 
C 

C Print out the flux x area x time surface in a comma 
C delimited format to be read by spreadsheets. 

C 

CALL NATTEXT 


C 

C 

C 

C 

C Close summary file 
C 

CLOSE ( UNIT-10, STATUS-'KEEP’ ) 

WRITEC 6,60003 ) PSFILE 

60003 FORMATC /' The PNP Surface file is complete.'/ 
1 ' filename: ' ,A ) 


C 

C Finished 
C 

END 

C 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE CARPETPLOT 
C 
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0373 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0374 

C 



0375 

c 

This 

subroutine takes the NAT surface and writes out a text 

0376 

c 

based carpet plot to the output file 

0377 

c 



0378 

c 

ARRAY 

LIST 

0379 

c 



0380 

c 

CARPET = LINEAR ARRAY IN VELOCITY OF SYMBOLS FOR CARPET PLOT 

0381 

c 

NATINC - LINEAR ARRAY OF INCREMENTS TO BREAK CARPET PLOT 

0382 

c 



0383 

c 



0384 

c 



0385 

c 



0386 



CHARACTER*1 CARPET(70) 

0387 



REAL*8 NATINCC6) 

0388 



INCLUDE 'COMMONPS.BLK' 

0389 

c 



0444 


DO 2500 13-1, NC 

0445 

c 



0446 

c 

Calculate the increments in the carpet plot 

0447 

c 



0448 

c 



0449 



DO 1990 J-1,6 

0450 



NATINC(J)=J*NATMAX(I3)/6 . D0 

0451 

1990 

CONTINUE 

0452 

C 



0453 

C 

Write 

out header information to screen and to file 

0454 

c 



0455 



WRITE (10,2000) PIDS(I3), RSFILE 

0456 



WRITE ( 6,2000) PIDS(I3), RSFILE 

0457 

2000 

F0RMAT(1H1,/, IX,' RESPONSE PID: ',13, 5X, 

0458 


1 

•RESPONSE FILE: ’ ,A) 

0459 



WRITE (10,2005) ASFILE 

0460 



WRITE ( 6,2005) ASFILE 

0461 

2005 

F0RMAT(1X, 'A_SURF FILE: ' ,A) 

0462 



WRITE (10,2010) PNP(I3) ,TNAT(I3) 

0463 



WRITE ( 6,2010) PNP(I3) ,TNAT(I3) 

0464 

2010 

F0RMAT(1X, ' PNP(S> ' , F10 . 5 , 5X , 

0465 


1 

'Total Flux x Area x Time (NAT) =',E12.5) 

0466 



WRITE (10,2020) NATMAX(I3) 

0467 



WRITE ( 6,2020) NATMAX(I3) 

0468 

2020 

FORMAT( IX, 'CONTOURS .12345 at equal increments from', 

0469 


1 

' 0 to max NAT «',E12.5) 

0470 

C 



0471 



WRITE ( 10,2030 ) 

0472 



WRITE ( 6,2030 ) 

0473 

2030 

FORMAT ( /8X,19X, 'IMPACT VELOCITY km/s’,/) 

0474 



WRITE ( 10,2040 ) (1,1-1,16,1) 

0475 



WRITE ( 6,2040 ) (1,1-1,16,1) 

0476 

2040 

FORMAT ( IX, 'Obi', IX, 1614 ) 

0477 



WRITE ( 10,2050 ) 

0478 



WRITE ( 6,2050 ) 

0479 

2050 

FORMAT ( lX,’Deg',lX,16(' I’)) 

0480 

C 
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0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0583 

0584 

0585 

0586 

0587 

0588 


C 

C 


C 

C 

C 


Calculate the carpet plot 

DO 2500 12-1, NB 
DO 2300 11*1, NV 


To plot with max obliquity at the top, 14 is substituted for 12 
14-20-12 

IF (NATS(I1,I4,I3) .LE. NATINC(l)) THEN 
CARPET(Il)-' . ' 

ELSE IF (NATS(I1,I4,I3) .LE. NATINC(2)) THEN 
CARPETCI1> , 1* 

ELSE IF (NATS (I 1,14, 13) .LE. NATINC(3)) THEN 
CARPET(Il)-'2' 

ELSE IF (NATS(I1,I4,I3) .LE. NATINC(4)) THEN 
CARPET(Il)-'3' 

ELSE IF (NATS(I1,I4,I3) .LE. NATINC(5)) THEN 
CARPET(Il)-'4' 

ELSE IF (NATS(I1,I4,I3) .LE. NATINC(6)) THEN 
CARPET(Il)-'5' 

ENDIF 

2300 CONTINUE 


C Write out the contour marks 

C 

C 

Write ( 6,2400) (I4-1)*5,(CARPET(I1),I1=1,64) 

Write (10,2400) (I4-1)*5,(CARPET(I1), 11-1,64) 

2400 FORMAT ( 1X,I3 , 1X.64A1 ) 

C 

2500 CONTINUE 
C 

RETURN 

C 

END 

C 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE NATTEXT 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C Write NAT array for 5 degree and 0.25 km/sec increments 

C 

C 


C 

C 

C 

C 


INCLUDE 'COMMONPS.BLK' 
REAL*4 NATK(19) 


DO 700 I-1,NC 
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0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 
0601 
0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 
0611 
0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 


WRITE ( 10,600 ) PIDS(I) 

600 FORMAT ( 1H1,/, IX' RESPONSE PID: ’,13,/ ) 
WRITE ( 10,630 ) PIDS(I),(J,J«0,90,5) 

630 FORMAT ( IX, 16.2, 19(V,I12. 2) ) 


DO 690 K=1,NV 
DO 640 J-1,19 

NATK(J>NATS(K,J,I) 

640 CONTINUE 

VR«K*VINC 

WRITEC 10,650) VR,(NATK(J),J«1,19) 

650 FORMAT ( F6.2,19( V ,E12.4) ) 

690 CONTINUE 

700 CONTINUE 
C 

RETURN 

C 

END 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

SUBROUTINE RESREAD 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c 

C Resread reads in the output from the RESPONSE code. This output 
C consists of the critical diameter data as a function of property 
C id, impact angle, and impact velocity. 

C 

C 

C note: for variables contained in the common block refer to the main 
C listing for definition. 

C 

C 

C Variable list 
C 

C answer = character string represnting user input 

C itf = analysis type for rfile 

C rfile = response output filename 

C ienvr = environment for response file 

C 

CHARACTER LENGTH*2 
CHARACTER*80 ANSWER, RFILE, Form 
CHARACTER*46 A46 
CHARACTER*^ B15A, B15B 
CHARACTER*8 C8A, C8B 
CHARACTER*2 D2 
REAL*4 STND 

C INTEGERS ITF, ITA, IC, ICT, ICB, IPF 

C !!! CHANGES TO BE COMPATIBLE WITH BUMPERII verl.3 
INTEGER*2 ITF, ITA, IC, ICT, ICB, IPF, IPFUNC3 
INTEGER*2 IENVR 


C 
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0643 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 


INCLUDE 'COMMONPS.BLK' 

IF (IBOTHS.EQ.2) GOTO 60 
C 

C Read in the RESPONSE output filename , set default to resp.dat 
C 

IF (INDEX(ROOTFILE, ' . ') .EQ. 0)ROOTFILE- ' STATION . ' 
ANSWER«ROOTFILE(l:INDEX(ROOTFILE, » .'))//' RSP' 

JOT - INDEXC ROOTFILE , ’ . ' ) 

WRITE (LENGTH, '(12)' )JOT+3 

FORM-’ (/IX,” RESPONSE OUTPUT FILENAME (<CR>-” ,A '//LENGTH// 
••*)>" 

10 WRITE ( 6, FORM )ANSWER 
READ ( 5,30 ) RFILE 
30 FORMAT (A) 

C 

C !!! ! THIS OPEN FOR THE MAC WILL GIVE THE NORMAL FINDER DIALOG 
C BOX. THE DIRLIST METHOD IS SKIPPED 

IF (RFILE(1:1).EQ. '?') THEN 

OPEN ( UNIT-23, FILE-*, STATUS-' OLD \FORM=’ UNFORMATTED’ ,ERR=40 ) 
INQUIREC UNIT-23, NAME-RFILE) 

GOTO 60 
END IF 
C 

C ! ! ! ! END OF MAC OPEN 
C 

IF (RFILE(1:1).EQ. '?’) THEN 
CALL DIRLIST 
GOTO 10 
END IF 

IF ( RFILE(1:4).EQ. ’ ’ ) THEN 

RFILE-ANSWER 
ELSE 

ROOTFILE - RFile(l:INDEX(RFile, ' . 

ENDIF 

C 

IF(IBATCOM.EQ.l) THEN 
WRITE(13 , ’ (A) ’ ) RFILE 
RETURN 
END IF 
C 

C Open the file 
C 

OPEN ( UNIT-23, FILE-RFILE, STATUS- 'OLD' .FORM- 'UNFORMATTED’ ,ERR-40 ) 

C 

GO TO 60 
C 

C Error control on open 
C 

40 WRITE ( 6,50 ) 

50 FORMAT ( /IX, 'UNABLE TO OPEN FILE’ ) 

GO TO 10 
C 

C Read in the analysis type and the number of property cases. 
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0751 

C 


0752 

C 

60 READ (23) ITYPEIN , ITF , IDens , NC 

0753 

C 

! ! ! NO ERROR CHECKING ON IENVR 

0754 


60 READ (23) ITYPEIN, ITF, IENVR, IDens, NC 

0755 

C 

WRITE (6 , *) ' ITYPEIN , ITF , IDens , NC ’ 

0756 

C 

WRITE(6,*) ITYPEIN, ITF, IDens, NC 

0757 


IF (ITYPEIN. EQ. 3. AND. IBOTHS.EQ.l) ITYPE=1 

0758 


IF (IDens. EQ.l) THEN 

0759 


WRITE (6,63) 

0760 


63 FORMAT (/5X,' Constant density threat') 

0761 


ELSE IF (IDens. EQ. 2) THEN 

0762 


WRITE (6,64) 

0763 


64 FORMAT (/5X,' Variable density threat') 

0764 


END IF 

0765 

C 


0766 

C 

Check that the response file is the correct analysis type 

0767 

C 


0768 


IF ( ITF.NE.ITYPE ) THEN 

0769 


IF ( ITYPE.EQ.l ) THEN 

0770 


WRITE ( 6,70 ) 

0771 


70 FORMAT ( /IX, 'DEBRIS ANALYSIS SPECIFIED IN GEOMETRY FILE V 

0772 


1 'BUT RESPONSE FILE IS FOR METEOROIDS ’) 

0773 


ELSE 

0774 


WRITE ( 6,80 ) 

0775 


80 FORMAT (/IX, 'METEOROID ANALYSIS SPECIFIED IN GEOMETRY FILE 

0776 


1 • BUT RESPONSE FILE IS FOR DEBRIS' ) 

0777 


END IF 

0778 

C 


0779 


WRITE ( 6,90 ) 

0780 


90 FORMAT ( /IX, 'DO YOU WISH TO CONTINUE WITH GEOMETRY OPTION ', 

0781 


1 ' (<CR>=NO) > ',$) 

0782 


READ ( 5,30 ) ANSWER 

0783 

C 


0784 


IF ( ANSWER(1:1).EQ.’Y' .OR. ANSWER(1:1).EQ. 'y' ) THEN 

0785 


GO TO 10 

0786 


ELSE 

0787 


STOP 

0788 


END IF 

0789 

C 


0790 


END IF 

0791 

C 


0792 

C 

Read in the impact angle information 

0793 

C 


0794 


READ (23) NB,BINC 

0795 

C 

WRITE(6,*) 'NB.BINC' 

0796 

C 

WRITE (6,*) NB.BINC 

0797 

C 


0798 

C 

Read in the impact velocity information 

0799 

C 


0800 


READ (23) NV.VINC 

0801 

C 

WRITE(6,*) 'IMPACT VELOCITY, VEL INCR. ' 

0802 

C 

WRITE(6,*) NV.VINC 

0803 

C 


0804 

C 

Initialize RESPONSE to 0.0 
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0805 

C 



0806 



DO 200 I-l.NC 

0807 



DO 150 J-1,NB 

0808 



DO 100 K-1,NV 

0809 



RESPONSE ( K,J,I ) - 0. 

0810 


100 

CONTINUE 

0811 


150 

CONTINUE 

0812 


200 

CONTINUE 

0813 

C 



0814 

C 


Read in the critical diameter data 

0815 

C 



0816 

C 


WRITE(6,*) 'NC,NB,NV' 

0817 

C 


WRITE(6,*) NC,NB,NV 

0818 

C 


WRITE(6,*) ' RESPONSES, J, I)' 

0819 

C 


Loop thru the property id's 

0820 



DO 400 I-l.NC 

0821 

C 



0822 

C 


Loop thru the impact angles 

0823 



DO 300 J=1,NB 

0824 

C 



0825 

C 


Loop thru the impact velocities 

0826 



DO 250 K-l.NV 

0827 

C 



0828 

C 


Store the critical diameter in response 

0829 



READ (23) RESPONSES, J, I) 

0830 

C 


WRITE(6,*) RESPONSES, J, I) 

0831 


250 

CONTINUE 

0832 


300 

CONTINUE 

0833 


400 

CONTINUE 

0834 

C 



0835 

C 


IF (INPUTCD.EQ.2) CALL SETDIAMS 

0836 

C 



0837 



READ ( 23, END-440, ERR-440 ) A46 

0838 

C 


WRITE(6,*) 'A46' 

0839 

C 


WRITE ( 6, '( //IX, A) ' ) A46 
WRITE ( 10,' ( //IX, A)' ) A46 

0840 



0841 



READ ( 23 ) C8A , ITA , C8B , ICB , UNITS 

0842 



WRITE ( 10, '( A, 14)') ' Threat (1 Debris, 2 Meteoroid) 

0843 



WRITE ( 10, '( A, 14)') ' Density (1 Constant, 2 Function) 

0844 



WRITE ( 10,' ( A, 14)') ' Number of PID Cases 

0845 



WRITE ( 10,'( 2A)') ' Units ’, UNITS 

0846 

C 


WRITE(6,*) 'C8A,C8B' 

0847 

C 


WRITE(6,*) C8A.C8B 

0848 

C 


WRITE ( 6,'( A, 14)') ' Threat (1 Debris, 2 Meteoroid) 

0849 

C 


WRITE ( 6,'( A, 14)') ' Density (1 Constant, 2 Function) 

0850 

C 


WRITE ( 6,'( A, 14)') ' Number of PID Cases 

0851 

C 


WRITE ( 6,’( 2A)') ' Units \ UNITS 

0852 



DO 420 I-1,ICB 

0853 



READ ( 23 ) ICT , D2 , B15A , B15B , IPF , IPFUNC3 

0854 



WRITE ( 10,411) I 

FORMAT( /IX,' PID NUMBER ' ,14 ) 

0855 

411 

0856 

C 



0857 



IF (ICT.EQ.2) THEN 

0858 



IF ( IPF.EQ.l ) THEN 


,ITA 
' ,IDens 
,ICB 


,ITA 
' ,IDens 
,ICB 
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0859 

0860 
0861 
0862 

0863 

0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

0872 

0873 

0874 

0875 

0876 

0877 

0878 

0879 

0880 
0881 
0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 

0910 

0911 

0912 


WRITE ( 10,485) 

ELSE IF ( IPF.EQ.2 ) THEN 
WRITE ( 10,486) 

ELSE IF C IPF.EQ. 3 ) THEN 
WRITE ( 10,487) 

ELSE IF ( IPF.EQ.4 ) THEN 
WRITE ( 10,488) 

ELSE IF ( IPF.EQ.5 ) THEN 
WRITE ( 10,484) 

ELSE IF ( IPF.EQ.6 ) THEN 
WRITE ( 10,489) 

ELSE IF ( IPF.EQ.7 ) THEN 
WRITE ( 10,490) 

ELSE IF ( IPF.EQ.8 ) THEN 
WRITE C 10,491) 

ELSE IF ( IPF.EQ.9 ) THEN 
WRITE C 10,492) 

ELSE IF ( IPF.EQ.10 ) THEN 
WRITE ( 10,493) 

ELSE IF C IPF.EQ.ll ) THEN 
WRITE C 10,494) 

ELSE IF ( IPF.EQ.12 ) THEN 
WRITE ( 10,495) 

ELSE IF ( IPF.EQ. 13 ) THEN 
WRITE ( 10,496) 

ELSE IF C IPF.EQ. 14 ) THEN 
WRITE C 10,497) 

END IF 
END IF 

485 FORMAT ( /IX, ’ORIGINAL PENETRATION FUNCTION’) 

486 FORMAT ( /1X,'PEN4 PENETRATION FUNCTION’) 

487 FORMAT ( /IX, ’REGRESSION PENETRATION FUNCTION') 

488 FORMAT ( /IX, 'COUR-PALAIS PENETRATION FUNCTION’) 

484 FORMAT ( /IX,’ BOEING INTERP PENETRATION FUNCTION’) 

489 FORMAT ( /IX, ’ DEVELOPMENTAL6, USER INPUT’) 

490 FORMAT ( /IX, 'DEVELOPMENTAL/, USER INPUT’) 

491 FORMAT ( /IX, 'DEVELOPMENTAL8, USER INPUT’) 

492 FORMAT ( /IX, 'DEVELOPMENTAL9, USER INPUT') 

493 FORMAT ( /IX, 'DEVELOPMENTAL10, USER INPUT’) 

494 FORMAT ( /IX, 'DEVELOPMENTAL11, USER INPUT’) 

495 FORMAT ( /IX, 'DEVELOPMENTAL^, USER INPUT’) 

496 FORMAT ( /IX, 'DEVELOPMENTAL 13, USER INPUT’) 

497 FORMAT ( /IX, ’DEVEL0PMENTAL14, USER INPUT’) 

WRITE ( 10, '( /A )' ) ' Configuration Shield Wall' 

C WRITE ( 6,* ) ’ICT,D2,B12A,B12B* 

C WRITE ( 6,* ) ICT,D2,B12A,B12B 

IF (ICT.EQ.l) CONF - ’Single Plate’ 

IF (ICT.EQ.2) CONF = 'Double Plate’ 

IF (ICT.EQ.3) CONF - 'Multiwall’ 

WRITE ( 10,'C 1X,A,4X,2A )’ ) CONF.B12A.B12B 
C WRITE ( 6, ' ( 1X,A,4X,2A )’ ) CONF,B12A,B12B 

READ ( 23 ) ShThk , VWThk , STND , ShDen(I) ,VWDen(I) , ADEN 
C WRITE ( 6,* ) 'ShThk, VWThk, STND, ShDenCD.VWDenCI), ADEN, I' 

C WRITE ( 6,* ) ShThk, VWThk, STND, ShDen(I),VWDen(I), ADEN, I 
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0913 


IF (ICT.EQ.3) THEN 


0914 


WRITE C 10, ’( A,A,F8.4V) ’ 

Combined Areal Density’ 

0915 


+ * of All Shields - ' .ADEN 

0916 


WRITE ( 10, '( A.F8.4)’) ’ 

Total Standoff = ’ 

0917 


+ ,STND 


0918 

C 

WRITE C 6, '( A,A,F8.4)’) * 

Combined Areal Density’ 

0919 

C 

+ ' of All Shields - ' .ADEN 

0920 

C 

WRITE ( 6/C A.F8.4)’) ' 

Total Standoff = ' 

0921 

C 

+ ,STND 


0922 


GOTO 410 


0923 


END IF 


0924 

C 

WRITE ( 6,’( A.F8.4)’) ’ Shield Thickness = ’ .ShThk 

0925 


IF (SHTHK. NE. 0.0) 


0926 


+ WRITE ( 10,’C A.F8.4)’) ’ 

Shield Thickness = ’.ShThk 

0927 

410 WRITE C 10, 'C A.F8.4V ) ’ Vessel 

Wall Thickness = ’ , VWThk 

0928 

C 

WRITE ( 6, ’( A.F8.4)’) ’ Vessel 

Wall Thickness = ’ , VWThk 

0929 


IF (ICT.NE.3) THEN 


0930 


IF (SHTHK. NE. 0.0. AND. STND.NE. 0.0) 


0931 


+ WRITE ( 10,’( A.F8.4)’) ’ 

Standoff = ’ , STND 

0932 

C 

WRITE ( 6, ’( A.F8.4)’) ’ 

Standoff - ’ ,STND 

0933 


END IF 


0934 


IF ( Units .EQ. ’ ENGLISH ’ ) THEN 

0935 


ShThkM(I) - ShThk*2.54 


0936 


VWThkM(I) - VWThk*2.54 


0937 


ADAR(I)-ADEN/ . 0142233 


0938 


ELSE 


0939 


ShThkM(I) - ShThk 


0940 


VWThkM(I) - VWThk 


0941 


ADAR(I)-ADEN 


0942 


END IF 


0943 




0944 

C 

With or without 30 MLI 


0945 


READ ( 23 ) A46 


0946 


WRITE ( 10,’ ( 4X,A)’ ) A46 


0947 

C 

WRITE ( 6,’( 4X.A)’ ) A46 


0948 


420 CONTINUE 


0949 


GO TO 450 


0950 


440 WRITE ( 10,42 ) 


0951 


42 FORMAT ( /2X,’ No Header following 

.RSP file ’ ) 

0952 

C 


0953 


450 IF (IBOTHS.EQ.l) RETURN 


0954 

C 



0955 

C 

Close the file and return 


0956 

C 



0957 


CLOSE ( UNIT-23, STATUS-’ KEEP’ ) 


0958 

C 



0959 

C 

Write Rfile to summary file 


0960 

C 



0961 


WRITE (10,500 )RFILE 


0962 


500 F0RMAT(1X, ’RESPONSE OUTPUT FILE - V 

,A ) 

0963 

C 



0964 

C 



0965 

C 

! ! ! ! 


0966 


WRITE(RSFILE , ’ (BN ,A) ’ )RFILE 
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0967 


RETURN 

0968 

C 


0969 


END 

0970 

C 


0971 

C 


0972 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0973 

C 

C 

0974 


Subroutine ASREAD 

0975 

C 

C 

0976 

cccccccccccccccccccccccccccccccc 

0977 

c 


0978 

c 

This subroutine opens and reads the table of exposed areas 

0979 

c 

versus velocity and obliquity created by A_SURF. 

0980 

c 


0981 

c 


0982 


CHARACTER*80 ANSWER 

0983 

c 


0984 

c 


0985 

c 


0986 


INCLUDE 'COMMON PS. BLK' 

0987 

c 


0988 

c 

Read in the ASF filename , set default to DATA.ASB 

0989 

c 


1044 


10 WRITE ( 6, '(/IX, ”Area_Surface Binary Output File" 

1045 


1 " <CR-DATA.ASB> 

1046 


READ C 5,' (A)' ) ANSWER 

1047 

c 


1048 

c 

! ! ! ! THIS OPEN FOR THE MAC WILL GIVE THE NORMAL FINDER DIALOG 

1049 

c 

BOX. THE DIRLIST METHOD IS SKIPPED 

1050 


IF (ANSWER(1:1).EQ. '?') THEN 

1051 


OPEN ( UNIT-2, FILE-*, STATUS-'OLD’ ,FORM-'UNFORMATTED' , 

1052 


* READONLY, ERR-10 ) 

1053 


INQUIREC UNIT-2, NAME-ASFILE) 

1054 


GOTO 40 

1055 


END IF 

1056 

c 


1057 

c 

! ! ! ! END OF MAC OPEN 

1058 

c 


1059 

1060 


IF ( ANSWER(1:1).EQ. ' ' ) ANSWER-'DATA.ASB' 

1061 

c 


1062 


WRITE(ASFILE , ' CBN , A) ' )ANSWER 

1063 

c 


1064 

c 

Open the file 

1065 

c 


1066 


OPEN ( UNIT-2 , FILE-ANSWER , STATUS- ' OLD ' , FORM- ’ UNFORMATTED ' 

1067 


* .READONLY, ERR-10 ) 

1068 

c 


1069 


40 CONTINUE 

1070 

c 

Read in the analysis type and the number of ranges 

1071 

c 

1072 

c 


1073 


READ (2) ITYPE , NR , PID , AREATOT 

1074 


IF( NR.GT.IRNGS ) THEN 
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1075 WRITEC 6,60001 ) 

1076 60001 FORMAT( /’ — ERROR — The maximum number of Ranges was' 

1077 * , ' exceeded . ' ) 

1078 STOP 

1079 ENDIF 

1080 C 

1081 C Read in the ranges 

1082 C 

1083 READ (2) CCRANGECI,J),I=1.2),J-1,NR) 

1084 C 

1085 C Read in the impact angle information 

1086 C 

1087 READ (2) NB.BINC 

1088 C 

1089 C Read in the impact velocity information 

1090 C 

1091 READ (2) NV.VINC 

1092 C 

1093 C Read the Area Surface array 

1094 C 

1095 READ (2) C(AREAS(I,J),I-1,NV),J=1,NB) 

1096 C 

1097 C Close the file 

1098 C 

1099 CLOSE C UNIT-2, STATUS-’ KEEP 1 ) 

1100 C 

1101 C 

1102 C 

1103 C Write A_SURF file to output file 

1104 C 

1105 WRITE C 10,600 ) ASFILE 

1106 600 FORMAT ( 1X,’A_SURF BINARY OUTPUT FILE - ’ ,A ) 

1107 C 

1108 C Write the number of ranges and the Property ID. 

1109 C 

1110 WRITEC 10,621 ) NR,PID,AREATOT 

1111 621 FORMATC IX, ’RANGES- ’,12, ' PID-’,I9, 

1112 1 ’ EFF. AREA (sq.m) -\F12.5) 

1113 C 

1114 C Write the start and end Element ID for each range. 

1115 C 

1116 DO 625 I-l.NR 

1117 WRITE C 10,622 ) I,RANGE(1,I),RANGEC2,I) 

1118 622 F0RMATC1X, ’Range ’,12,’ START: ’,112, ’END: ’,112) 

1119 625 CONTINUE 

1120 C 

1121 RETURN 

1122 C 

1123 END 

1124 C 

1125 C 

1126 C 

1127 C 

1128 C 
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1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 
1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

SUBROUTINE PSINPUT 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C PSINPUT writes the program header to the screen and reads in the 
C summary ouput filename. It also determines the spacecraft exposure 
C time and operating altitude. 

C 

C 

C 

C note: for variables contained in the common block refer to the main 
C listing for definition 

C 

C Variable list 
C 

C answer = character string representing user input 

C Psfile = output filenanme 

C 
C 
C 

INCLUDE 'COMMONPS.BLK' 

C 

CHARACTER*20 BUMTTM 
CHARACTER*80 ANSWER 
C 
C 

C 

C Write header to screen and summary file 
C 

WRITE ( 6,10 ) 

10 FORMAT (/IX, ' ***************************', //IX, 3X, 

1 'Space Debris SURFace', 

2 //lX,5X,'Ver. 1.5 8/23/92' , /IX, SX, ’for BUMPERIIvl. 2a’ , //IX, 

3 •***************************•) 

C 

C Read in output filename, set default to SDSURF.PS 
C 

15 WRITE ( 6,20 ) 

20 FORMAT ( /IX, 'OUTPUT FILENAME (CR=SDSURF.PS>' ,S) 

READ (5,30 ) PSFILE 
30 FORMAT (A) 

C 

IF ( PSFILE(1:1).EQ. ' ’ ) PSFILE=' SDSURF.PS' 

C 

C Open psfile 
C 

C !!!! PUT CREATORS XCEL’ OR 'MSWD' IN OPEN STATEMENTS ON MAC 
C 

OPEN ( UNIT=10 , FILE=PSFILE , STATUS= ’ NEW* ,IOSTAT=IER , 

* CREATORS XCEL',ERR=40,RECL=256 ) 
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1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 


A 

### FORTRAN - Warning - This feature is an extension to VAX FORTRAN 
File "macii_p_surfl6.f" ; Line 912 

#— 

C 

GO TO 70 
C 

C Error control 
C 

40 IF C IER.EQ.2013 ) THEN 
WRITE ( 6,50 ) 

50 FORMAT ( /IX, 'FILE ALREADY EXISTS OK TO OVERWRITE (CR=YES,$)>') 
READ ( 5,30 ) ANSWER 
C 

IF ( ANSWER(1:1).EQ.’Y' .OR. ANSWER(1:1).EQ. ’ ' ) THEN 
OPEN C UNIT-10 , FILE-PSFILE , STATUS- ' UNKNOWN ’ , IOSTAT=IER , 

1 ERR-40) 

REWIND 10 
ELSE 

GO TO 15 
END IF 
ELSE 

WRITE ( 6,60 ) 

60 FORMAT (/IX, ’ UNABLE TO OPEN FILE ' ) 

GO TO 15 
END IF 
C 

70 CONTINUE 
C 
C 

WRITE ( 10,75 ) 

75 FORMAT ********************* ,//iX,3X, 


1 'Space Debris SURFace', 

2 //IX, 5X, 'Ver. 1.5 8/23/92' , /IX, 5X, 'for BUMPERIIvl. 2a' , //IX, 

3 ******♦***♦.//) 

C 

C 


C Set analysis type to 1 (debris) 

C 

ITYPE-1 

C 

C 

C !!!!!!!!!! SFROM BUMPERII Verl.2.a SHIELD INPUT! !!!!!!!!!! 

C 

C Determine Environment Definition, set default to 1 (original) 

C 

51 WRITE ( 6,52 ) 

52 FORMAT (/IX, 'ENVIRONMENT ?' ,/2X, '1-JSC 20001&6000 <CR> ',/2X, 

1 '2- 7/90 MEMO', /IX, 'ANSWER 1 OR 2 > ’ ,$) 

C 

READ ( 5,53 ) ANSWER 

53 FORMAT (A) 

C 

IF ( ANSWER(1:4).EQ. ' ' ) THEN 
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1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 


IEnv=l 

ELSE 

READ C ANSWER(1 : 80) , 54 )IEnv 
54 FORMAT ( BN, II ) 

END IF 
C 

C Check that input was correct 
C 

IF ( IEnv.EQ.l .OR. IEnv.EQ.2 ) THEN 
CONTINUE 
ELSE 

WRITE ( 6,956 ) 

956 FORMAT ( /IX, 'INCORRECT INPUT’ ) 

GO TO 51 
END IF 

365 CONTINUE 

IF C ITYPE.EQ.l. AND. IENV.EQ.2 ) THEN 
370 WRITE ( 6,380 ) 

380 FORMAT (/IX, 'SOLAR FLUX LEVEL ?' ,/,2X, ’1-NOMINAL <CR> ’,/,2X, 
1 '2-MINIMUM' ,/,2X, '3-CONSTANT’ ,/,lX, 'ANSWER 1-3 > ',$) 

READ ( 5,30 ) ANSWER 
C 

IF ( ANSWER(1:4).EQ. ' ' ) THEN 

ISOL=l 
ELSE 

READ ( ANSWER(1:80),90,ERR=370 ) ISOL 
90 FORMAT CBN, 14) 

END IF 

IF(IBATCOM.EQ.l) WRITE (13, '(A)') ANSWER 
IF C ISOL.EQ.3 ) THEN 
385 WRITE C 6,390 ) 

390 FORMAT (/IX, 'SOLAR FLUX LEVEL (10**4 Jy) (<CR>=70) > ' ,$) 

READ ( 5,30 ) ANSWER 

IF ( ANSWER(1:4).EQ. ' ' ) ANSWER='70.0' 

READ ( ANSWER(1 : 80) , 120 , ERR=385 ) SFLEVEL 
IF(IBATCOM.EQ.l) WRITE (13, '(A)') ANSWER 
END IF 
C 

C Check that input was correct 
C 

IF ( ISOL.LT.l .OR. ISOL.GT.3 ) THEN 
GO TO 370 
END IF 
END IF 
C 

C Determine the spacecraft exposure date, set default to 1995 
C 

IF ( ITYPE.EQ.l. AND. IENV.EQ.2 ) THEN 
340 WRITE ( 6,350 ) 

350 FORMAT ( /IX, 'DATE TO BEGIN EXPOSURE ( 1994-2025 ) 

1 (<CR>=1995) > ’ ,$) 

READ ( 5,30 ) ANSWER 
C 
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1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 


IF ( ANSWER(1 : 4) . EQ . ' ’ ) THEN 

DATE-1995. 

ELSE 

ISpot-Index(ANSWER, ’ . ’) 

IF (ISPOT.NE.0) GOTO 179 
k-80 

i blank-0 

do while (iblank.eq.0) 

if (ANSWER(k:k).ne.’ •) then 
iblank=l 
goto 1110 
end if 
k-k-1 

1110 continue 

end do 

ANSWER-ANSWER(1 : K)// ’ . ’ 

179 READ ( ANSWER(1 : 80) , 180 , ERR-340 ) DATE 

180 FORMAT ( BN,D20.3 ) 

END IF 

C 

C Check that date is within range 
C 

IF ( DATE. LT. 1994 .OR. DATE.GT.2025 ) THEN 
WRITE C 6,360 ) 

360 FORMAT ( IX,'— ERROR— Date outside of range' ) 

GO TO 340 
END IF 

IF(IBATCOM.EQ.l) WRITE(13,*) DATE 
END IF 

IF (IBOTHS.EQ.2) GOTO 56 
C 

C Determine the spacecraft exposure time , set default to 10 years 
C 

105 WRITE C 6,110 ) 

110 FORMAT (/IX, ’ SPACE STATION EXPOSURE TIME (YEARS) 

1 (<CR>-10.0) > ’,$) 

READ ( 5,30 ) ANSWER 
C 

IF ( ANSWER(1:4).EQ. ’ * ) ANSWER='10.0* 

C 

READ ( ANSWER(1 : 80) , 120 , ERR- 105 ) ETIME 
120 FORMAT ( BN,D20.0 ) 

IF (ETIME. LT.0.) GOTO 105 
IF(IBATCOM.EQ.l) THEN 
WRITE(13,*) ETIME 
GOTO 151 
END IF 
C 

56 IF ( IEnv.EQ.l ) THEN 

WRITE (10,57) 

57 FORMATC JSC-20001 AND JSC-6000 FLUX EQUATIONS’) 

ELSE 

WRITE (10,58) 

58 FORMATC 7/17/90 MEMO FLUX EQUATIONS’) 
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1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 


ENDIF 

IF C ITYPE.EQ.l ) THEN 
WRITE ( 10,130 ) 

130 FORMAT ( /IX, 'MAN-MADE ORBITAL DEBRIS ANALYSIS') 

IF C ISOL.EQ.l ) WRITE ( 10,400 ) 

400 FORMAT ( IX, 'NOMINAL SOLAR FLUX LEVEL' ) 

IF C ISOL.EQ.2 ) WRITE ( 10,410 ) 

410 FORMAT C IX, 'MINIMUM SOLAR FLUX LEVEL' ) 

IF ( ISOL.EQ.3 ) WRITE ( 10,420 ) SFLEVEL 
420 FORMAT ( IX, 'SOLAR FLUX LEVEL = ',F8.3 ) 

IF (DATE.NE.0.) WRITE ( 10,430 ) DATE 
430 FORMAT ( IX, 'DATE TO BEGIN EXPOSURE = ',F8.3 ) 

ELSE 

WRITE ( 10,140 ) 

140 FORMAT ( IX, 'METEOROID ANALYSIS' ) 

END IF 
C 

WRITE ( 10,150 )ETIME 

150 FORMAT ( IX, 'SPACECRAFT EXPOSURE TIME (YEARS) =’,F8.3 ) 

C 

C Read in operating altitude , set default to 500 km 
C 

151 IF (IBOTHS.EQ.2) GOTO 203 
IF( IEnv.EQ.l) THEN 

AltMin = 350. 

AltMax = 550. 

AltMinnm=350. *0.53995680 
A1 tMaxnm=550 . *0 . 53995680 
ELSE 

AltMin = 100. 

AltMax = 500. 

AltMinnm=100 . *0 . 53995680 
Al tMaxnm=500 . *0 . 53995680 
END IF 
C 

C ALT INTERNALLY IS IN KILOMETERS. 

C 

160 WRITE ( 6,170 )AltMin, AltMax 

170 F0RMAT(/1X, 'OPERATING ALTITUDE(’F4.0’-' ,F4.0’km) 

1 (<CR>=388.92) ’) 

WRITE(6,205) 

205 FORMATC' OR ENTER AN "E" OR "e" TO ENTER IN NMILES > ' ,$) 
READ (5,’(A)’)ANSWER 
IF (ANSWER(1:4).EQ. ’ ’) THEN 

ALT=388.92D0 
ALTNM=210 . 00D0 

IF (IBATCOM. EQ. 1) WRITE ( 13,* ) ALT 
GOTO 189 
END IF 

IF (ANSWER. EQ. 'E' .OR. ANSWER. EQ.’e') THEN 

IF(IBATCOM.EQ.l) WRITE (13, '(A)') ANSWER(1:10) 

WRITE (6 , 171)al tmi nnm , al tmaxnm 

171 F0RMAT(/1X, 'OPERATING ALTTrUDE( , F4.0'-' ,F4.0'nmiles) 

1 (<CR>=210.00) > ') 
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1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 215 

1460 

1461 

1462 C 

1463 

1464 C 

1465 C Check that altitude is within range 

1466 C 

1467 189 IF ( ALT.LT.AltMin .OR. ALT.GT.AltMax ) THEN 

1468 WRITE ( 6,190 )AltMin,AltMax 

1469 190 FORMAT ( IX,' — ERROR — Altitude outside of range ',2F8.3 ) 

1470 GO TO 160 

1471 END IF 

1472 C 

1473 C Write altitude to output file 

1474 C 

1475 203 IF (IBATC0M.EQ.1) GOTO 204 

1476 IF C Units .EQ. • ENGLISH ' ) THEN 

1477 IF ( ANSWER. NE.’E\ OR. ANSWER. NE.'e') ALTNM=ALT* 0.53995680 

1478 WRITE ( 10,202 ) ALTNM 

1479 202 FORMAT ( IX,' OPERATING ALTITUDE (nmiles) _ ’,F8.3 ) 

1480 WRITE C 10,200 ) ALT 

1481 ELSE 

1482 WRITE ( 10,200 ) ALT 

1483 200 FORMAT ( IX, 'OPERATING ALTITUDE (km) = \F8.3 ) 

1484 END IF 

1485 

1486 C 

1487 C 

1488 204 CONTINUE 

1489 C Finished 

1490 C 

1491 RETURN 

1492 C 

1493 END 

1494 C 

1495 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

1496 C 

1497 SUBROUTINE FLUX 

1498 C 

1499 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

1500 C 

1501 C 

1502 C Flux calculates the meteoroid or debris flux for the given critical 


READ (5, '(A)')ANSWER 
IF (ANSWER(1:4).EQ. ' ’) THEN 

ALTNM-210.00D0 
ELSE 

READ (ANSWER(1 : 80) ,215) ALTNM 
END IF 

IF (IBATC0M.EQ.1) WRITE ( 13,* ) ALTNM 
ALT = ALTNM / 0.53995680 
ELSE 

READ(ANSWER(1 : 80) , 215) ALT 
FORMAT( BN.D20.0 ) 

IF (IBATCOM.EQ.l) WRITE ( 13,* ) ALT 
END IF 

WRITE(6,*) 'ALT’, ALT 
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1503 C diameter based on analysis type. 

1504 C 

1505 INCLUDE 'COMMONPS.BLK' 

1506 C 

1561 IF (IEnv.EQ.l) THEN 

1562 C This flux definition uses JSC-200001 for debris and JSC-6000 for 

1563 C meteoroids 

1564 CALL Flux20001 

1565 ELSE 

1566 C This flux definition uses the 7/17/90 revision memo to SSP 30425 

1567 CALL Flux790 

1568 END IF 

1569 

1570 RETURN 

1571 C 

1572 END 

1573 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

1574 C 

1575 SUBROUTINE FLUX20001 

1576 C 

1577 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

1578 C 

1579 C 

1580 C Flux calculates the meteoroid or debris flux for the given critical 

1581 C diameter based on analysis type. 

1582 C 

1583 C 

1584 C note: for variables contained in the common block referr to the main 

1585 C listing for definition 

1586 C 

1587 C Variable List 

1588 C 

1589 C ddiam = diam in double precision , cm 

1590 C ge = gravity focusing factor 

1591 C intercept = intercept of the flux equation 

1592 C mass = critical meteoroid mass, g 

1593 C mden = meteoroid density, g/cc 

1594 C re = earth's radius, km 

1595 C slope = slope of the flux equation 

1596 C 

1597 C 

1598 INCLUDE 'COMMONPS.BLK' 

1599 C 

1654 REAL*8 DDIAM, GE .INTERCEPT, LD,MASS,MDEN, PI, RE, SLOPE 

1655 C 

1656 PARAMETER (PI=3 . 141592653589793238D0) 

1657 C 

1658 C Set mden 

1659 C 

1660 C 

1661 MDEN=0.50D0 

1662 C 

1663 C Calculate the focusing factor, equation 

1664 C is from JSC-30000 
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1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 


C 

RE-6378. 0D0 

GE-0 . 568D0+0 . 432D0*(RE/(RE+ALT)) 

C 

C Convert diem to double precision 
C 

DDIAM-DIAM 

C 

C Calculate the flux 
C 

IF C ITYPE.EQ.l ) THEN 
C 

C For debris use JSC-20001, use stated equations for diameters 
C less then 1 cm , for those greater use third order fit of the 
C curve for region up to 5 cm . 

C 

C The log of the flux varies linearly between 400 and 500 km according 
C to D Kesseler of JSC. 

C 

LD-DLOG10(DDIAM) 

IF C DIAM.GT.5.0 )DIAM-5.0 
IF ( DIAM.LE.5.0 ) THEN 
IF C DIAM.LT.1.0 ) THEN 

SLOPE— 0 . 0010D0*ALT-2 . 0200D0 
ELSE 

SLOPE— 0 . 0022D0*ALT-0 . 140OD0 
END IF 

INTERCEPT-40 . 0036D0* ALT-7 . 2600 
FLX-10.0D0**(SLOPE*LD4lNTERCEPT) 

ELSE 

WRITE C 6,100 ) 

100 FORMAT ( /IX,' DIAMETER IS GREATER THAN 5 CM LIMIT*) 

STOP 
END IF 
C 

ELSE 

C 

C For meteoroids use JSC-3000, E-06g < mass < lg 

MASS-PI*(DDIAM**3)/6 .0D0*MDEN 

FLX-10 . 0D0**(-14 . 37D0-1 . 213D0*DLOG10(MASS)) 

C 

C Account for earth shielding and gravity focusing , also convert to 
C number of impacts per sq-m per year 
C 

FLX-FLX*GE*3 . 15576D07 
C 

END IF 
C 

C Correct Flux for difference in Boeing and Nasa definition 
C 

FLX=FLX*4.0D0 

C 

RETURN 
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1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 


C 

END 


C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE FLUX790 


C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Flux calculates the meteoroid or debris flux for the given critical 
C diameter based on analysis type. 

C 

C 

C note: for variables contained in the common block refer to the main 
C listing for definition 

C 

C Variable List 
C 

C ddiam = diam in double precision , cm 
C ge = gravity focusing factor 
C intercept = intercept of the flux equation 
C mass = critical meteoroid mass, g 
C mden * meteoroid density, g/cc 
C re - earth's radius, km 
C slope = slope of the flux equation 
C 
C 

INCLUDE ' COMMONPS . BLK ' 

C 

REAL*8 DEBFLUX.METFLUX 
C 

INTEGER CURYR 
C 

C Calculate the flux 
C 

IF ( ITYPE.EQ.l ) THEN 
C 

C Sum flux over integral years 

C 

FLX = 0. 

CURYR = INT(DATE) - 1 
IF ( ETIME.GE.l. ) THEN 
DO I = 1, ETIME 

CURYR = CURYR + 1 

FLX = FLX + DEBFLUX(CURYR , 1) 

END DO 
END IF 


C 

C Add fractional year if any 

C 

CURYR = CURYR + 1 

FLX = FLX + DEBFLUX(CURYR.l) * (ETIME - INT(ETIME)) 
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1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 


C 

ELSE 

FLX - METFLUX(DIAM , ALT) * ETIME 
ENO IF 
C 

RETURN 

C 

END 

C 

C 

c 

DOUBLE PRECISION FUNCTION DEBFLUX(YEAR, MONTH) 

C 

C FUNCTION WHICH COMPUTES THE FLUX FOR THE NEW DEBRIS 
C ENVIRONMENT DEFINITION (SEPTEMBER 17, 1990 REVISION 
C MEMO TO SSP 30425) 

C 

C DEBFLUX - Flux (impacts per square meter per year) 

C HH - Flux factor 

C DIAM - Orbital debris diameter (CM) 

C ALT - Altitude in kilometers 

C PSI - Flux enhancement factor 

C YEAR - YEAR (Year Date i.e. 1994...) 

C SFLUX - 13 Month smoothed solar radio flux F10.7 units are 

C Expressed in 10**4 Jy; Retarded by 1 year from YEAR 

C AGROWTH - Assumed annual growth rate of mass in orbit 

C FGROWTH - Estimated growth rate of fragment mass 

C 

INCLUDE ' COMMONPS . BLK ' 

C 

REAL HH,PHI1,PHI,F1,F2,P,G1,G2,PSI,TABLE1(25:125) 

INTEGER YEAR, MONTH, HI 
C 

REAL*4 SFLUX(12 , ISTART : ILAST, 2) 

C 

COMMON / SOL DAT / SFLUX 
C 

DATA TABLE1 

1 /0. 900, 0.905, 0.910, 0.912, 0.915,0. 920,0. 922, 0.927, 0.930, 0.935, 

2 0.940, 0.945,0. 950, 0.952,0. 957,0.960,0.967,0. 972,0. 977, 0.982, 

3 0.990,0.995,1.000,1.005,1.010,1.020,1.025,1.030,1.040,1.045, 

4 1.050,1.060,1.065,1.075,1.080,1.090,1.100,1.115,1.130,1.140, 

5 1.160,1.180,1.200,1.220,1.240,1.260,1.290,1.310,1.340,1.380, 

6 1.410,1.500,1.630,1.680,1.700,1.710,1.700,1.680,1.610,1.530, 

7 1.490,1.450,1.410,1.390,1.380,1.370,1.380,1.400,1.440,1.500, 

8 1.550,1.640,1.700,1.750,1.770,1.780,1.770,1.750,1.720,1.690, 

9 1.660,1.610,1.560,1.510,1.460,1.410,1.380,1.350,1.320,1.300, 

1 1.280,1.260,1.240,1.220,1.200,1.180,1.165,1.155,1.140,1.125, 

2 1 . 110 / 

C 

C Calculate psi 

IF ( INCLIN.LE.25 ) THEN 
PSI - TABLE1(25) 

ELSE 
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1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 


LOW = INT(INCLIN) 

HI = LOW + 1 

PSI = (TABLEl(HI)-TABLEl(LOW)) * (INCLIN-LOW) + TABLEl(LOW) 

END IF 
C 

C Compute flux factor H and PHI 

HH = SQRT( 10**(EXP(-(ALOG10(DIAM)-0.78)**2/0. 405769)) ) 

IF ( ISOL.LE. 2 ) THEN 

PHI1 = 10.0**( ALT/200. - SFLUX(MONTH, YEAR-1, ISOL)/140. - 1.5 ) 
ELSE 

PHI1 = 10.0**( ALT/200. - SFLEVEL/140. - 1.5 ) 

END IF 

PHI = PHI1 / C PHU + 1 ) 

C 

FI = 1.22E-5 * (DIAM**-2.5) 

F2 = 8.1E+10 * (DIAM + 700.0)**-6 
C 

AGROWTH =0.05 
FGROWTH =0.02 

C Power relationship used with estimated growth rate of fragment mass 
C gl = (1 + q) A (t - 1988) 

IF ( YEAR. LE. 2010 ) THEN 

Gl = (1.0 + FGROWTH)**(YEAR - 1988) 

ELSE 

Gl = (1.0 + FGROWTH) **(2010 - 1988) 

FGROWTH =0.04 

Gl = Gl * (1.0 + FGROWTH)** (YEAR - 2010) 

END IF 

C Linear relationship used with assumed annual growth rate of orbit mass 
C g2 = 1 + p(t - 1988) 

G2 = 1.0 + AGROWTH*(YEAR - 1988) 

C Calculate debris flux function based on various factors 
C and compute cross sectional flux in lieu of surface area flux 
DEBFLUX = 4.0D0 * HH * PHI * PSI * (F1*G1 + F2*G2) 

C 

RETURN 

END 

C 

C 

C 

DOUBLE PRECISION FUNCTION METFLUX(DIAM.ALT) 

C 

C FUNCTION WHICH COMPUTES THE FLUX FOR METEOROID 
C ENVIRONMENT DEFINITION (FROM SEPTEMBER 17, 1990 
C REVISION TO SSP 30425) 

C 

C METFLUX - FLUX (PARTICLES/SQUARE METER/YEAR) 

C DIAM - DIAMETER OF METEOROID (CM) 

C MASS - MASS OF METEOROID (GRAMS) 

C 

REAL DIAM 

DOUBLE PRECISION ALT, TEMP, MASS, PI 
C 

PARAMETER (PI = 3 . 141592653589793D0) 
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1989 PARAMETER (C0 = 3.147E+7) 

1990 PARAMETER CC1 = 2.2E+3 ) 

1991 PARAMETER (C2 =15.0 ) 

1992 PARAMETER (C3 « 1.3E-9 ) 

1993 PARAMETER (C4 = 1.0E+11 ) 

1994 PARAMETER (C5 = 1.0E+27 ) 

1995 PARAMETER (C6 = 1.3E-16 ) 

1996 PARAMETER (C7 = 1.0E+6 ) 

1997 C 

1998 RE * 6478. 0D0 

1999 C Determine gravity focusing factor 

2000 GE = 1.0 + RE/(RE + ALT - 100.) 

2001 C Determine meteoroid mass based on diameter of particle and dens=.5g/cc 

2002 MASS - PI*(DIAM**3)/6.0* .5 

2003 C Compute terms defined in Sept 1990 draft for SSP 30425 update 

2004 C to meteoroid environment 

2005 TERM - MASS*MASS 

2006 TEMP = C0*( (C1*MASS**0.306 + C2)**-4.38 + C3*(MASS + C4*TERM + 

2007 1 C5*TERM*TERM)**-0 . 36 + C6*(MASS + C7*TERM)**-0.85) 

2008 C 

2009 C Convert to cross sectional flux; use gravity focusing factor GE 

2010 C 

2011 METFLUX = 4.0D0*GE*TEMP 

2012 C 

2013 RETURN 

2014 END 

2015 

2016 

2017 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

2018 C 

2019 SUBROUTINE SOLREAD 

2020 C 

2021 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

2022 C 

2023 C 

2024 C Sol read reads in the output solar flux file. 

2025 C 

2026 C 

2027 C note: for variables contained in the common block refer to the main 

2028 C listing for definition. 

2029 C 

2030 C 

2031 C Variable list 

2032 C 

2033 C answer = character string represnting user input 

2034 C rfile = response output filename 

2035 C 

2036 C 

2037 INCLUDE ’COMMONPS.BLK’ 

2038 C 

2093 CHARACTER*80 ANSWER, RFILE 

2094 C 

2095 REAL*4 SFLUX(12,ISTART:ILAST,2) 

2096 C 
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2097 COMMON / SOLDAT / SFLUX 

2098 C 

2099 C Open the SOLAR_FLUX.DAT file and read it 

2100 C 

2101 OPEN ( UNIT=7,FILE=' SOLAR_FLUX.DAT' ,STATUS='OLD' .READONLY, ERR* 100) 

2102 C 

2103 GO TO 200 

2104 C 

2105 C Error control for open 

2106 C 

2107 100 WRITE ( 6,110 ) 

2108 110 FORMAT ( /IX, ’DEBRIS VELOCITY DISTRIBUTION FILE SOLAR_FLUX.DAT \ 

2109 1 ’WAS NOT FOUND’ /’ FILENAME ? > ’,$) 

2110 READ ( 5,60 ) ANSWER 

2111 60 FORMAT (A) 

2112 C 

2113 IF ( ANSWER(1:2).EQ. ’ ’ ) GO TO 100 

2114 C 

2115 OPEN ( UNIT=7 , FIL E=ANSWER , STATUS= 'OLD ’ , READONLY , ERR=100 ) 

2116 C 

2117 IF (IBATCOM.EQ.l) THEN 

2118 WRITE(13,'(A)’) ANSWER 

2119 GOTO 251 

2120 END IF 

2121 C 

2122 C Search for data while reading through comment lines 

2123 C 

2124 200 CONTINUE 

2125 READ ( 7,60,END=250 )ANSWER 

2126 READ ( ANSWER, 1000, ERR-200 )IYR,IMON,(SFLUX(IMON,IYR,I) ,1=1,2) 

2127 1000 FORMAT ( I4,3X,I2,3X,5X,2(3X,F5.1)) 

2128 C 

2129 C Read the data 

2130 C 

2131 DO 225 1=1, PERIOD 

2132 READ ( 7,1000,END=250 )JYR,JMON,(SFLUX(JMON,JYR,J),J=l,2) 

2133 225 CONTINUE 

2134 C 

2135 C Fill up gaps in the early, ending years 

2136 C 

2137 250 CALL FILL (SFLUX(l,ISTART,l),IYR,IMON,JYR,JMON) 

2138 CALL FILL (SFLUX(l,ISTART,2),IYR,IMON,JYR,JMON) 

2139 C 

2140 251 CLOSE ( UNIT=7 , STATUS* ' KEEP ’ ) 

2141 C 

2142 C Finished 

2143 C 

2144 RETURN 

2145 C 

2146 END 

2147 C 

2148 C 

2149 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

2150 C 


A-29 



P_SURF Listing 


2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 
2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 


SUBROUTINE FILL (ARRAY , IYR , IMON , JYR , JMON) 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Fill fills ARRAY by repeating data through a 132 month cycle. 

C 

C 

C Variable list 
C 

C array = solar data array that has cyclical data 

C iyr = first year that data was read for array 

C imon = first month of first year that data was read for array 

C jyr = last year that data was read for array 

C jmon = last month of last year that data was read for array 

C 

C 

C 

C 

INCLUDE ' COMMONPS.BLK' 

C 

REAL ARRAY(*) 

C 

INTEGER IYR, IMON, JYR, JMON 
C 

C Find the first and last array element with data 
C 

IBEG = (IYR-ISTART)*12 + IMON 
IEND = (JYR-ISTART)*12 + JMON 
C 

C Check that at least one whole cycle was read 
C 

IF ( IEND-IBEG . LT. 131 ) THEN 
WRITE ( 6,100 ) 

100 FORMAT ( /IX, ’LESS THAN ONE CYCLE IN SOLAR FLUX FILE 1 ) 

STOP 
END IF 
C 

C Check data for gaps 
C 

DO 40 I - IBEG, IEND 

IF ( ARRAY(I).LT. .01 ) THEN 

IYEAR - INT((I-1)/12) + ISTART 
IMONTH - M0D((I-1),12) + 1 
WRITE ( 6,110 ) IYEAR, IMONTH 

110 FORMAT (/IX, 'NO SOLAR FLUX DATA FOR YEAR ’,14,’, MONTH ’,12) 

STOP 
END IF 
40 CONTINUE 
C 

C Fill array beginning 
C 

DO 50 I = IBEG-1, 1, -1 
ARRAY(I) - ARRAY(I+132) 
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2259 50 CONTINUE 

2260 C 

2261 C Fill array ending 

2262 C 

2263 DO 60 I = IEND+1, PERIOD 

2264 ARRAY(I) = ARRAY(I-132) 

2265 60 CONTINUE 

2266 C 

2267 C Finished , return 

2268 C 

2269 RETURN 

2270 C 

2271 END 

2272 C 

2273 C 

2274 C 

2275 SUBROUTINE DIRLIST 

2276 CHARACTER*80 LINE 

2277 OPEN(UNIT«17 , FILE= ' DIRECTORY . LIST' .STATUS-’OLD' .ERR-30) 

2278 REWIND 17 

2279 5 READ(17 , 10 , ERR-20) LINE 

2280 WRITEC6.il) LINE 

2281 GOTO 5 

2282 20 REWIND 17 

2283 CLOSE (UNIT-17, STATUS-’ KEEP') 

2284 10 FORMAT ( A80) 

2285 11 FORMAT ( 1X.A80) 

2286 30 RETURN 

2287 END 


0 serious errors detected. 

1 warning message generated. 
2287 lines compiled. 
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Listing from Language Systems FORTRAN (Version 3.0 Tue, Nov 19, 1991) 

Tue, Dec 7, 1993 8:04 PM 

Options OFF: A C CASE CCD CCX CRAY DYN E EXTENDED F77 12 LINEFEED MC68040 NOIMPLICIT 
OV R S SANE SYM T72 TRACE W X 

Options ON: ANSI BKG=3 L MC68020 MC68881 OPT=l SAVEALL U VAX Z 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C c 

C A_SURF VER 1.8 12/7/93 C 

C C 

c MARTIN MARIETTA C 

C MANNED SPACE SYSTEMS C 

c C 

ccccccccccccccccccccccccccccccccccccc 

c 

c 

c 

C A SURF VER 1.8 will compute the fractional area for a threat and element 
C and stores this in a matrix as a function of velocity and obliquity. 

C This includes the relative probability of each threat occurring. 

C The process is repeated for all elements and threats, summing up the 
C areas. One data point on the surface represents the sum of all projected 
C areas that can be hit by a particle at a certain velocity and obliquity, 

C times the fraction of the total flux at that velocity. 

C 

C The code requires one file generated by other code as input, a GEOMETRY 
C output file from the BUMPER code. This file contains the threat 
C information and the element id, pid, and surface area lists. In 
C addition it includes a list of the exposed elements and their 
C impact angles for each threat case. 

C 

C A SURF code was developed under the NASA contract ’Structural Damage 
C Prediction and Analysis for Hypervelocity Impacts Study 1 under the 
C direction of N. Elfer. Portions of BUMPERII version 1.2a have been 
C used to maintain compatibility. 

C 

C Version 1.6 reads BUMPERII version 1.3 Geometry output. 

C 

C Version 1.8 corrects a problem in NEL. It now uses ElemLoc (POINT ( J, I ) ) 

C instead of POINT (J, I) 

C 

C Include module COMMONAS variable list 
C 

C Scalers 
C 

C areatot = the total effective area for the ranges 

C bine = impact angle (beta) increment , deg 

C cbeta = cosine of beta the impact obliquity angle 
C it = current threat case 

C itype = analysis type , 1- debris, 2-meteoroids 
C nb = number of angles in the response array 
C nee = the total number of exposed elements summed 
C nel = current element number 
C nelm = total number of elements 
C nr = number of element ranges to sum over 

C nt = number of threat cases 

C nv - number of velocities in the response array 

C pid = the property id associated with all elements of the ranges 
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0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 
0107 
0106 

0109 

0110 


C vr * impact (relative) velocity , km/sec 

C vine = impact (relative) velocity increment , km/sec 

C 

C Arrays 
C 

C area * array containing the value of the surface area for each 
C element, sq-meters 

C areas - the area surface array containing the summed area fractions for 
C each velocity and obliquity for all elements in the specified 

C element id ranges. (vr,beta) 

C exposed * list of the number of exposed elements for each threat 
C angle . 

C geometry = array containing the values of the cosine of the impact 
C angle for each exposed element for each threat angle. 

C id « array containing the values of the element and property id 
C for each element 

C 1- id 

C 2- pid 

C ixasc - rotation axis, 1-x, 2-y, 3-z 

C ner = array containing the range number for each element 

C point *= array of the element numbers corresponding to the elements 
C in the geometry array. 

C range * array containing the starting and ending elment id for each 
C range to sum over 

C 1-starting id 

C 2- ending id 

C rotang *= rotation angle 

C threat * array containg threat information 

C 1-theta angle, rad 

C 2-phi angle, rad 

C 3-vr, km/sec 

C 4-prob 

C 
C 

C Main Program Variable List 
C 

C Scalers 
C 

C answer * user input 

C areae * the area times the threat probability 

C asbfile - the binary output Area Surface filename. 

C astfile * the text output Area Surface filename. 

C dela * the delta obliquity for a given threat/element 

C delaOO * distributed area fraction for the upper left quadrant 

C delaOl = distributed area fraction for the upper right quadrant 

C delalO * distributed area fraction for the lower left quadrant 

C delall * distributed area fraction for the lower right quadrant 

C delv * the delta velocity for a given threat/element 
C first - logical first pass flag. 

C ic - current range number 

C ob - Obliquity for the current threat /element . 

C prob - threat probability from threat array 

C 

C Arrays 
C 

C None . 

C 

C 
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0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 


C 

LOGICAL FIRST 
C 

CHARACTER* 80 ANSWER 
C 

INTEGER*2 IC 
C 

REAL* 4 PROB 
C 

INCLUDE 1 COMMONAS . BLK 1 
C 

C Write header to screen and read in output filenames and 
C element id ranges. Open the output text file for GEOREAD. 

C 

CALL INPUT 
C 

C Read in the GEOMETRY output file 
C 

CALL GEOREAD 
C 

C Initialize the Velocity increment and number of velocities for 
C the Area Surface 
C 

VINC=0 .25 
NV=68 
C 

C Initialize the Obliquity increment and number of angles for 
C the Area Surface 
C 

BINC=5 . 0 
NB=1 9 
C 

C Initialize the Area Surface to 0.0. 

C 

DO 50 12=1, NB 
DO 50 11=1, NV 

AREAS (II, I2)=0.0 

50 CONTINUE 
C 

C Initialize the total effective area 
C 

AREATOT = 0 
C 

C Initialize the property id for each element range to zero. 

C 

PID=0 

C 

C Determine the range number of each element and verify all elements 
C in all ranges have the same property id. The ID array is assumed to be 
C sorted by increasing id number. And, the ranges are assumed to be in 
C assending order. 

C 

FIRST= . TRUE . 

IC=1 

DO 150 1=1 , NELM 
C 

C is the element id in this range 

C 
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0203 


110 

IF ( ID (1,1) . LT. RANGE (1, IC) ) THEN 


0204 

C 




0205 

C 


no 


0206 

C 




0207 



NER(I) -0 


0208 



ELSEIF ( ID (1,1) . LE . RANGE (2, IC) ) THEN 


0209 

C 




0210 

C 


yes, verify this is not a new property id. 


0211 

C 


all elements processed must have the same property id 

0212 

C 




0213 



NER ( I ) =IC 


0214 



IF ( ID (2, I) .NE .PID ) THEN 


0215 



IF ( PID.EQ.O ) THEN 


0216 



PID~ID(2, I) 


0217 



WRITE ( 6, 60000 ) PID 


0218 

60000 

FORMAT ( /’ Processing Property ID ’,15/ ) 


0219 



ELSE 


0220 



IF ( FIRST ) WRITE ( 6,60001 ) ID(l f I) 


0221 

60001 

FORMAT ( /' WARNING Multiple Property 

IDs in * 

0222 


* 

1 Table. First occurance at element 

’,16/) 

0223 



FIRST*. FALSE. 


0224 



ENDIF 


0225 



ENDIF 


0226 



ELSE 


0227 



IF ( IC . LT .NR ) THEN 


0228 

c 




0229 

c 


next range 


0230 

c 




0231 



IC-IC + 1 


0232 



GO TO 110 


0233 



ELSE 


0234 



NER ( I ) *0 


0235 



ENDIF 


0236 



ENDIF 


0237 


150 

CONTINUE 


0238 

c 




0239 

c 

Process all threat cases. 


0240 

c 




0241 



DO 400 I«1,NT 


0242 

c 




0243 

c 

Set 

the threat index and get the iiqpact velocity 


0244 

c 




0245 



IT-I 


0246 



VR-THREAT (3, IT) 


0247 

c 




0248 

c 

Ignore impact velocities less than VINC 


0249 

c 




0250 



IF ( VR . LT . VINC ) THEN 


0251 



GO TO 400 


0252 



ENDIF 


0253 

c 




0254 

c 

Get 

the probability of the threat 


0255 

c 




0256 



PROB - THREAT (4, IT) 


0257 

c 




0258 

c 

Evaluate each exposed element 


0259 

c 




0260 



DO 300 J-l, EXPOSED (I) 
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0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 


C 

C Set the element number 
C 

C NEL=POINT ( J, I) !!M Error used in version 1.6 

NEL-ElemLoc (POINT ( J, I) ) 

C 

C Get the element range, skip it if not in requested range 
C 

IONER(NEL) 

IF ( IC.EQ.O ) GO TO 300 
C 

C Get the cosine of the impact angle from the Geometry array. 

C 

CBETA=GEOMETRY ( J, IT) 

C 

C Compute the Obliquity 
C 

OB= (180. /3. 14159265) * ACOS (CBETA) 

C 

C Compute the area times threat probability 
C 

C AREAE=AREA (NEL, IT) * CBETA * PROB 

ARE AE= AREA (J, IT) * CBETA * PROB 
C 

C Compute the total effective area 
C 

AREATOT = AREATOT + AREAE 
C 

C Compute delta V and delta obliquity 
C 

DELV=AMOD (VR, VINC) 

DELA=AMOD (OB, BINC) 

C 

C Compute the Area Surface array indices 
C 

IV=INT (VR/VINC) 

IA=INT (OB/BINC) + 1 
C 

C Compute the distributed area fractions 
C 

DE LAO 0= AREAE * ( (VINC - DELV) / VINC) * 

★ ( (BINC - DELA) / BINC) 

DELA10=AREAE * (DELV / VINC) * ( (BINC - DELA) / BINC) 

DELA0 1=AREAE * ((VINC - DELV) / VINC) * (DELA / BINC) 

DELA11=AREAE * (DELV / VINC) * (DELA / BINC) 

C 

C Sum to the Area Surface. 

C 

AREAS (IV , I A) = ARE AS (IV , I A) + DELA0 0 
AREAS (IV+1, I A) =AREAS (IV+1, IA) + DELA10 
IF ( OB. LT. 90.0 ) THEN 

AREAS ( IV , IA+1)=AREAS(IV , IA+1) +DELA01 
AREAS (IV+1, IA+1) =AREAS (IV+1, IA+1) + DELA11 
ENDIF 
C 

C Count the number of exposed elements distributed in the Area Surface 
C 

NEE=NEE + 1 
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0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 


300 CONTINUE 
400 CONTINUE 
C 

C Output the Area Surface to the output file. 

C 

C Open the file 
C 

OPEN ( UNIT-2 , FILE-ASBFILE, STATUS- 1 NEW 1 , FORM- 1 UNFORMATTED ' ) 

C 

C The following output variables are INTEGER*2: 

C ITYPE 

C The following output variables are INTEGER* 2 : 

C NB, and NV 

C The following output arrays are INTEGER* 2 : 

C RANGE, PID, AND NR 

C The following output variables are REAL* 4: 

C AREATOT, BINC and VINC 

C The following output array is REAL*4: 

C AREAS 

C 

C 

C output the analysis type, the number of ranges, the property id 
C and the total effective exposure area 
C 

WRITE ( 2 ) ITYPE , NR, P ID , AREATOT 
C 

C output the ranges . 

C 

WRITE (2) ( (RANGE (I, J), 1-1,2) , J-1,NR) 

C 

C output the number of impact angles and the impact angle increment 
C 

WRITE (2) NB, BINC 
C 

C output the number of velocities and the impact velocity increment 
C 

WRITE (2) NV, VINC 
C 

C output the Area Surface data 
C 

WRITE (2 ) ( (AREAS ( I , J) ,1-1, NV) ,J-1,NB) 

C 

C close the binary file. 

C 

ENDFILE 2 

CLOSE ( UNIT=2 , STATUS— * KEEP 1 ) 

C 

c 

c 

C WRITE TEXT FILE 
C 

C Write the number of ranges and the Property ID. 

C 

WRITE ( 6,621 ) NR, PID, AREATOT 
WRITE ( 10,621 ) NR, PID, AREATOT 
621 FORMAT ( IX, ' RANGES- 1 , 12, ' First PID- 1 , 19, 

1 1 EFF. AREA -',F12.5) 

C 
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0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 


C 

IF ( FIRST ) THEN 
CONTINUE 
ELSE 

WRITE ( 10, 623 ) 

623 FORMAT ( /■ WARNING Multiple PIDs in Table.'/) 

ENDIF 

C 

C Write the start and end Element ID for each range. 

C 

DO 625 1*1 , NR 

WRITE ( 10,624 ) I, RANGE (1,1), RANGE (2, I) 

624 FORMAT (IX, 12,', START/END, 112, f , 112) 

625 CONTINUE 
C 

c 

C Write Area Surface array for 5 degree and 0.25 km/ sec increments 

C 

C 

1=1 

WRITE ( 10,630 ) I, (J, J=0, 90,5) 

630 FORMAT ( 1 6 . 2 , 1 9 ( ' , ' , 112 . 2 ) ) 

C 

DO 700 K=1,NV, 1 
VR=K*VINC 

WRITE ( 10,650 ) VR, (AREAS (K, J) ,J-1, 19, 1) 

650 FORMAT ( F6 . 2, 19 ( ' , ' , E12 . 4) ) 

700 CONTINUE 

C 
C 

C Close TEXT Output file 
C 

CLOSE ( UNIT=1Q , STATUS** ' KEEP ' ) 


C 

C 

C 


WRITE ( 6,60005 ) ASBFILE, ASTFILE 
60005 FORMAT ( /' The Area Surface file is complete.'/ 

* ' binary filename: ',A,/,' text filename: '/A) 


C 

C Finished 
C 


STOP 


C 


END 


C 

C 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE INPUT 


c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


c 

c 

C Input writes the program header to the screen and reads in the 
C summary ouput filename. It also determines the analysis type, the 
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0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 


C spacecraft exposure time, operating altitude and the element id sum 
C ranges . 

C 

C 

c 

C note: for variables contained in the common block refer to the main 
C listing for definition 

C 

C Variable list 
C 

C answer - character string representing user input 
C ic - counter for the number of element id ranges 
C sfile - summary output filenanme 
C 
C 
C 

INCLUDE ' COMMONAS . BLK ' 

C 

CHARACTER* 80 ANSWER 
C 

C Write header to screen 
C 

WRITE { 6,10 ) 

10 FORMAT (/IX, ********************** 1 , //IX, 3X, 'A_SURF VER 1.8', 

1 /IX, 'Last Update 12/7/93', 

2 /IX, 'for BUMPERII verl . 3 1 , //IX, 1 ********************* 1 ) 

C 

C 

c 

c 

C Get the BINARY OUTPUT filename from the user 
C 

WRITE ( 6,60002 ) 

60002 FORMAT (/' Binary output f ilename?<CR-DATA. ASB> >',$ ) 

READ { 5,50001 ) ASBFILE 

50001 FORMAT ( A ) 

C 

IF ( ASBFILE. EQ.' 1 ) ASBFILE- 'DATA. ASB ' 

C 

C 

C Get the TEXT OUTPUT filename from the user 
C 

600 WRITE ( 6, 60003 ) 

60003 FORMAT (/' Text output f ilename?<CR«DATA. AST> >',$ ) 

READ ( 5,50002 ) ASTFILE 

50002 FORMAT ( A ) 

C 

IF { ASTFILE. EQ.' f ) ASTFILE- 'DATA. AST ' 

C 

C 

C Open the text output file for GEOREAD to use. 

C ON VAX USE RECL-256 TO WRITE ENTIRE RESULTS. 

C 

OPEN (UNIT-10, FILE-ASTFILE, STATUS- 'NEW ' , RECL-256, ERR-600 ) 

C 

C 

C 

C Read in element ranges to sum over 
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0527 C 

0528 IC=0 

0529 C 

0530 WRITE ( 6,250 ) 

0531 250 FORMAT ( / IX, ' ONE Area Fraction Table will be created '/ 

0532 1 IX,' from ALL of the ranges of element IDs selected.'/ 

0533 2 IX,' INPUT THE STARTING AND ENDING ELEMENT ID FOR', 

0534 3 1 EACH RANGE' /IX,' ENTER D <CR> OR <CR> WHEN DONE') 

0535 C 

0536 270 IC=IC+1 

0537 275 WRITE ( 6,280 ) IC 

0538 280 FORMAT ( /IX, ' RANGE ' , 14, ' IN THE TABLE. ') 

0539 C 

0540 285 WRITE ( 6,290 ) 

0541 290 FORMAT ( IX, 'STARTING ELEMENT ID : ',$) 

0542 READ ( 5,30 ) ANSWER 

0543 30 FORMAT (A) 

0544 C 

0545 IF ( ANSWER (1 : 1) . EQ . ' ' .OR. ANSWER ( 1 : 1) . EQ . 'D ' ) GO TO 500 

0546 C 

0547 READ ( ANSWER(1 : 80) , 300,ERR=285 ) RANGE (1,IC) 

0548 300 FORMAT ( BN, 112 ) 

0549 C 

0550 305 WRITE ( 6,310 ) 

0551 310 FORMAT ( IX, 'ENDING ELEMENT ID : ',$) 

0552 READ ( 5,30 ) ANSWER 

0553 C 

0554 IF { ANSWERU : 1) .EQ. ' ' .OR. ANSWER(1 : 1) .EQ. 'D ' ) GO TO 305 

0555 C 

0556 READ ( ANSWER (1:80) ,300, ERR**305 ) RANGE(2,IC) 

0557 C 

0558 C Check that ending id > starting id 

0559 C 

0560 IF ( RANGE (1, IC) .GT. RANGE (2, IC) ) THEN 

0561 WRITE ( 6,320 ) 

0562 320 FORMAT ( IX,’ ERROR Starting ID greater then Ending ID') 

0563 GO TO 275 

0564 END IF 

0565 C 

0566 C Next Range if have not reached max allowed. 

0567 C 

0568 IF ( IC.LT.IRNGS ) GO TO 270 

0569 WRITE (6, 340) IC 

0570 340 FORMAT ( IX, ' WARNING A maximum of ',12,' ranges will ' 

0571 * , 'be processed.') 

0572 C 

0573 C Check that values were input 

0574 C 

0575 500 CONTINUE 

0576 IF ( RANGEd, 1) .EQ.0.0 .AND. RANGE (2, 1) .EQ.0.0 ) THEN 

0577 WRITE ( 6,330 ) 

0578 330 FORMAT ( IX,' ERROR No Range Values Input' ) 

0579 IC=0 

0580 GO TO 270 

0581 END IF 

0582 C 

0583 C Set the number of ranges equal to the number read in 

0584 C 
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0585 NR-IC-1 

0586 C 

0587 C Finished 

0588 C 

0589 C RETURN 

0590 END 

0591 C 

0592 C 

0593 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0594 C 

0595 SUBROUTINE GEOREAD 

0596 C 

0597 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0598 C 

0599 C 

0600 C Georead reads in the output file from the GEOMETRY code. This file 

0601 C contains the global threat and element data as well as the list of 

0602 C exposed elements and their impact angles for each threat case. 

0603 C 

0604 C 

0605 C 

0606 C note: for variables contained in the common block refer to main 

0607 C listing for definition 

0608 C 

0609 C 

0610 C Variable List 

0611 C 

0612 C answer - character string representing user input 

0613 C gfile = geometry output filename 

0614 C itf — analysis type contained in the 

0615 C 

0616 C 

0617 INCLUDE ' COMMONAS . BLK 1 

0618 C 

0653 CHARACTER LENGTH *2 

0654 CHARACTER* 1 IX (3) 

0655 CHARACTER* 2 0 BUMDTTM 

0656 CHARACTER* 8 0 ANSWER, GFILE, Form 

0657 CHARACTER* 30 AA 

0658 CHARACTER* 4 0 BB 

0659 CHARACTER* 12 CC 

0660 C INTEGER* 4 ITF 

0661 INTEGER* 2 ITF 

0662 REAL* 4 AREAMAXSF 

0663 C WRITE (6,*) ' IBOTHS, FIRST LINE IN GEOREAD IBOTHS 

0664 IF ( IBOTHS. EQ.l) GOTO 60 

0665 C 

0666 C Read in the GEOMETRY output filename, set the default to station_? .gem 

0667 C 

0668 IF ( INDEX (ROOTFILE, ' . ') .EQ. 0) ROOTFILE=' STATION. ' 

0669 ANSWER=ROOTFILE(l: INDEX (ROOTFILE, ' . '))// , GEM' 

0670 JOT - INDEX (ROOTFILE, ' . ' ) 

0671 WRITE (LENGTH, ' (12)' )JOT+3 

0672 FORM = ' (/IX, ' 'GEOMETRY OUTPUT FILENAME (<CR>= ", A' //LENGTH// ' 

0673 . ) > ••,$)’ 

0674 10 WRITE (6, FORM) ANSWER 

0675 READ ( 5,30 ) GFILE 

0676 30 FORMAT (A) 
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0677 

C 



0678 

C 

; r 

! ! THIS OPEN FOR THE MAC WILL GIVE THE NORMAL FINDER DIALOG 

0679 

C 


BOX. THE DIRLIST METHOD IS SKIPPED 

0680 



IF (GFILE (1:1) . EQ . ' ? ' ) THEN 

0681 



OPEN ( UNIT—22 , FILE=* , STATUS= 'OLD ' , FORM— ' UNFORMATTED * , ERR— 

0682 



INQUIRE ( UN IT-22, NAME=GF I LE ) 

0683 



IBOTHS=0 

0684 



GOTO 60 

0685 



END IF 

0686 

C 



0687 

C 

t ( 

! ! END OF MAC OPEN 

0688 

C 



0689 



IF (GFILE (1:1) .EQ. '?') THEN 

0690 



CALL DIRLIST 

0691 



GOTO 10 

0692 



END IF 

0693 



IF ( GFILE (1 : 4) .EQ. ' ' ) THEN 

0694 



GFILE=ANSWER 

0695 



ELSE 

0696 



ROOTFILE = GFile (1 : INDEX (GFile, '.') ) 

0697 



ENDIF 

0698 

C 



0699 



IF ( IBATCOM . EQ . 1 ) THEN 

0700 



WRITE (13, * (A) ' ) GFILE 

0701 



RETURN 

0702 



END IF 

0703 

C 



0704 

c 


Open the file 

0705 

c 



0706 



OPEN (UNIT=22 , FILE=GFILE, STATUS- ' OLD ' , FORM- ' UNFORMATTED ' , ERR-40 

0707 

c 



0708 



IBOTHS-0 

0709 



GO TO 60 

0710 

c 



0711 

c 


Error control 

0712 

c 



0713 


40 

WRITE ( 6,50 ) 

0714 


50 

FORMAT ( /IX, 'UNABLE TO OPEN FILE ' ) 

0715 



GO TO 10 

0716 

c 



0717 

c 


Read in the analysis type, the number of threat cases, and the 

0718 

c 


number of elements 

0719 

c 



0720 

c 


WRITE (*,*) 1 I BOTH S IN G . READ ' , IBOTHS 

0721 

c 

60 

READ (22) ITYPEIN, IType, IEnv, NT, NELM, Inclin 

0722 


60 

READ (22) ITYPEIN, IType, IEnv, NT, NELM, Inclin, AREAMAX 

0723 

c 


WRITE ( 6 , * ) ' ITYPEIN, IType, IEnv, NT, NELM, Inclin ' 

0724 

c 


WRITE (6, *) ITYPEIN, IType, IEnv, NT, NELM, Inclin 

0725 



IF (ITYPEIN. EQ. 3. AND. ITYPE. EQ.l) IBOTHS-1 

0726 



IF ( ITYPEIN. EQ. 3. AND. ITYPE. EQ. 2) IBOTHS-2 

0727 



IF (IType. EQ.l) THEN 

0728 



WRITE (6,62) 

0729 


62 

FORMAT (/5X, ' Debris Analysis ') 

0730 



IF (IEnv. EQ.l) THEN 

0731 



WRITE (6,64) 

0732 



ELSE 

0733 



WRITE (6,65) 

0734 



END IF 
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0735 



ELSE 

0736 



WRITE (6,63) 

0737 


63 

FORMAT (/5X, ' Meteoroid Analysis') 

0738 



IF (IEnv.EQ. 1) THEN 

0739 



WRITE (6,64) 

0740 


64 

FORMAT (/5X, ' JSC-20001&6000 Environment') 

0741 



ELSE 

0742 



WRITE (6,65) 

0743 


65 

FORMAT ( /5X, ' JSC-7/90 Memo') 

0744 



END IF 

0745 



END IF 

0746 

C 



0747 

C 


Check that the number of threats and the number of elements are 

0748 

C 


than the maximum allowed 

0749 

C 



0750 



IF ( NT.GT.ITH ) THEN 

0751 



WRITE ( 6,100 ) NT 

0752 


100 

FORMAT (/IX, 'NUMBER OF THREATS IS GREATER THAN ALLOWED', 19) 

0753 



WRITE ( 6,105 ) 

0754 


105 

FORMAT ( IX, 'ARRAY SIZE MUST BE INCREASED & CODE RECOMPILED') 

0755 



STOP 

0756 



END IF 

0757 

C 



0758 



IF ( NELM.GT . IELM ) THEN 

0759 



WRITE ( 6,110 ) 

0760 


110 

FORMAT ( /IX, 'NUMBER OF ELEMENTS IS GREATER THAN MAX ALLOWED' 

0761 



WRITE ( 6,105 ) 

0762 



STOP 

0763 



END IF 

0764 

C 



0765 

C 

Initialize the arrays to 0.0 

0766 

C 



0767 



DO 150 I-1,NT 

0768 



THREAT (3, I) -0.0 

0769 



THREAT (4, I) -0.0 

0770 



EXPOSED (I) -0 

0771 



DO 140 J— 1, NELM 

0772 



GEOMETRY (J, I) -0.0 

0773 



ID (1, J) —0 

0774 



ID (2, J) -0 

0775 



POINT (J, I) -0 

0776 


140 

CONTINUE 

0777 


150 

CONTINUE 

0778 

c 



0779 

c 


Read in the Threat data 

0780 

c 



0781 



DO 175 I— 1, NT 

0782 



READ (22) (THREAT (J, I) , J-1,4) 

0783 


175 

CONTINUE 

0784 

c 



0785 

c 


Read in the element id, and property id storing them in the ID 

0786 

c 


array. 

0787 

c 



0788 



DO 180 1-1,100000 

0789 



ElemLoc { I ) - 0 

0790 


180 

CONTINUE 

0791 




0792 



DO 200 I— 1, NELM 
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0793 



READ (22) (ID(J,I),J=1,6) 

0794 



ElemLoc ( ID ( 1 , 1 ) ) = I 

0795 


200 

CONTINUE 

0796 

C 



0797 

C 


Read in the element's surface area storing it in the AREA array. 

0798 

C 



0799 



DO 250 1=1 , NELM 

0800 



READ (22) AREA (1,0) 

0801 

C 


WRITE ( 6, * ) 'AREA(I, 0) , I,NELM' 

0802 

C 


WRITE (6,*) AREA ( I, 0) , I, NELM 

0803 


250 

CONTINUE 

0804 

C 



0805 

C 

Read in the geometry data for the exposed elements 

0806 

c 



0807 



DO 500 1=1 , NT 

0808 

c 



0809 

c 


Read in the threat case and the number of exposed elements 

0810 

c 



0811 



READ (22) IT, EXPOSED ( I ) 

0812 

c 


WRITE (6,*) 'IT, EXPOSED (I) • , IT, EXPOSED (I) 

0813 

c 



0814 

c 


Loop thru the exposed elements 

0815 

c 



0816 



DO 400 J=l, EXPOSED (I) 

0817 

c 



0818 

c 


Read in the element number (storing in the POINT array) , and 

0819 

c 


cosine of the impact angle (storing in the GEOMETRY array) . 

0820 

c 



0821 



READ (22) POINT (J, I) , GEOMETRY (J, I), Area (J, I) 

0822 

c 



0823 


400 

CONTINUE 

0824 

c 



0825 


500 

CONTINUE 

0826 

c 



0827 

c 


CALL LIB$DATE_TIME (BUMDTTM) 

0828 

c 

! ! ! i 

! TIME ONLY RECORDED FOR MAC VERSION 

0829 

c 


CALL TIME (BUMDTTM) 

0830 

c 



0831 

c 


Write gfile to summary file 

0832 

c 



0833 

c 


WRITE (10, 575) BUMDTTM 

0834 

c 

575 FORMAT (' 1 ',' SHIELD ', 40X, A, / ) 

0835 



WRITE ( 10,600 ) GFILE 

0836 


600 

FORMAT ( IX, 'GEOMETRY OUTPUT FILE = ' ,A ) 

0837 

c 



0838 

c 


To read Header from .GEM file 2-8-91 

0839 

c 



0840 



READ ( 22 , END=630 ) AA 

0841 



WRITE (10, ' ( //A ) ' ) AA 

0842 



DO 610 J = 1, 3 

0843 



READ (22 ) CC, BB 

0844 



WRITE ( 10, ' ( 2A ) ' ) CC, BB 

0845 


610 

CONTINUE 

0846 

c 



0847 



WRITE ( 10, ' ( /A, 14)') ' Threat (1 Debris, 2 Meteoroid) • , IType 

0848 



WRITE ( 10, ' ( /A, 14)') ' Environment (1 Old, 2 New) ',IEnv 

0849 



WRITE ( 10, ’ ( 5X, A, 15) ' ) ' Number of Threats ',NT 

0850 

c 
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0851 

C 


Write inclin to summary file 

0852 



IF ( ITYPE . EQ . 1 • AND . IEnv . EQ . 2 ) WRITE ( 10,520 ) INCLIN 

0853 


520 

FORMAT ( IX, ' INCLINATION (DEGREES) - ',F6.1 ) 

0854 

C 



0855 



READ ( 22 ) AA ! Rotation Axes and Angles 

0856 

c 



0857 



DO 620 J - 1,3 ! Maximum 3 rotations 

0858 



READ ( 22 ) IXASC ( J) , ROTANG ( J) 

0859 



IF ( IXASC ( J) .NE . 0 .AND .ROTANG ( J) .NE . 0 . AND . J.EQ . 1) 

0860 



t WRITE (10, ' (/IX, A) ') AA 

0861 



IF (IXASC(J) .NE.O.AND.ROTANG(J) .NE.0) THEN 

0862 



IF (IXASC (J) .EQ.l) IX(J)-'X’ 

0863 



IF ( IXASC ( J) . EQ . 2 ) IX ( J) — ' Y ' 

0864 



IF ( IXASC ( J) . EQ . 3 ) IX(J)-'Z’ 

0865 



WRITE ( 10,619 ) IX (J) , ROTANG (J) 

0866 



WRITE ( 6,619 ) IX (J) , ROTANG (J) 

0867 


619 

FORMAT ( 2X, ' Axis=’,A3,'; Angle-', F8 . 2 ) 

0868 



END IF 

0869 


620 

CONTINUE 

0870 



GO TO 650 

0871 


630 

WRITE ( 10,640 ) 

0872 


640 

FORMAT ( /2X, 1 No Header following . Gem file ' ) 

0873 

c 



0874 


650 

IF (IBOTHS.EQ.l) RETURN 

0875 

c 



0876 

c 


Close file 

0877 

c 



0878 



CLOSE ( UNIT-22, STATUS- 'KEEP' ) 

0879 

c 



0880 



RETURN 

0881 

c 



0882 



END 

0883 

c 



0884 



SUBROUTINE DIRLIST 

0885 



CHARACTER* 80 LINE 

0886 



OPEN (UNIT-17 , FILE- ’DIRECTORY . LIST ' , STATUS- ' OLD ' , ERR-30 ) 

0887 



REWIND 17 

0888 

5 


READ (17, 10, ERR— 20) LINE 

0889 



WRITE (6, 11) LINE 

0890 



GOTO 5 

0891 

20 


REWIND 17 

0892 



CLOSE (UNIT-17, STATUS- ' KEEP ’ ) 

0893 

10 


FORMAT ( A80) 

0894 

11 


FORMAT ( 1X,A80) 

0895 

30 


RETURN 

0896 



END 
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Listing from Language Systems FORTRAN (Version 3.0 jue, Nov 19, 1991) 

Sat, Sep 12, 1992 11:50 AM 

Options OFF: A ANSI BKG=0 CASE CCD CCX CRAY DYN E EXTENDED F77 12 LINEFEED MC68020 
MC68040 MC68881 NOIMPLICIT OV R SANE SAVEALL SYM T72 TRACE U VAX W X 2 
Options ON: C L S 

0001 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


0002 C C 

0003 C R_PLOT5 VER 1.6 8/23/92 C 

0004 C C 

0005 C MARTIN MARIETTA C 

0006 C MANNED SPACE SYSTEMS C 

0007 C C 


0008 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0009 C 

0010 C 

0011 C 

0012 C R_PLOT5 VER 1.6 reads the BUMPERII vl.3 - RESPONSE binary output 

0013 C and converts it to formatted output. The data is put out at 

0014 C 5 degree increments rather than the 15 degree increments originally 

0015 C used by RPLOT. The output velocity increment is set to 0.5 km/s for 

0016 C spreadsheet use. Commas are used to delimit the output to make it 

0017 C more easily read by a spreadsheet program such as Microsoft EXCEL. 

0018 C The output may then be utilized by SD_Surf for EXCEL to perform 

0019 C probability analysis. 

0020 C 

0021 C The code requires the output file of the RESPONSE portion of the 

0022 C BUMPERii code. This file contains the ballistic limit 

0023 C (minimum diameter to penetrate) as a function of velocity 

0024 C and obliquity. 

0025 C 

0026 C The RESREAD subroutine is taken directly from BUMPERII vl.2a - Shield 

0027 C version 1.2a except for the COUWONRP.BLK instead of COMMON2.BLK 

0028 C BUMPER was developed under the NASA contract ’Integrated Wall Design 

0029 C Guide and Penetration Control Plan’ by M. A. Wright & A . R . Coronado . 

0030 C 

0031 C SD_Surf was developed under the NASA contract 'Structural Damage 

0032 C Prediction and Analysis for Hypervelocity Impacts Study' under the 

0033 C direction of N. Elfer. 

0034 C 

0035 C Version 1.6 was modified to read BUMPERII version 1.3 file 

0036 C 

0037 C Include module COMMONRP variable list 

0038 C 

0039 C 

0040 C aden - combined areal density of shields 

0041 C conf - text description of wall configuration 

0042 C diam * critical diameter , cm 

0043 C idens - debris density, 1- constant density, 2-size function 

0044 C ienv = environment type, 1- JSC 20001&6000, 2- 7/90 memo 

0045 C it « current threat case 

0046 C itype * analysis type , 1- debris, 2-meteoroids 

0047 C nb * number of angles in the response array 

0048 C nc ■ number of wall configurations in the response array 
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0049 

C 

nv * number of velocities in the response array 

0050 

C 

pid ■ the property id associated with all elements of the ranges 

0051 

C 

rootfile = file name 

0052 

C 

rsfile = name of R_Plot5 output file for response surface 

0053 

C 

units = english or metric 

0054 

C 

vr = impact (relative) velocity , km/sec 

0055 

C 

vine = impact (relative) velocity increment , km/sec 

0056 

C 


0057 

c 

Arrays 

0058 

c 


0059 

c 

adar = areal density g/cm**2 

0060 

c 

pids = array containing the current pid number to process 

0061 

c 

response = array containing the values of the critical diameter < 

0062 

c 

a function of impact angle and velocity. 

0063 

c 

(vr, beta, pid) 

0064 

c 

standm - shield stand-off, cm 

0065 

c 

shden = shield density, g/cc 

0066 

c 

shthkm = shield thickness, cm 

0067 

c 

vwden = vessel wall density, g/cc 

0068 

c 

vwthkm = vessel wall thickness, cm 

0069 

c 


0070 

c 


0071 

c 

Main Program Variable List 

0072 

c 


0073 

c 

Scalers 

0074 

c 


0075 

c 


0076 

c 

first * logical if only one PID encountered in requested ranges 

0077 

c 

answer « user input 

0078 

c 

ob *= Obliquity for the current threat/element. 

0079 

c 


0080 

c 


0081 

c 


0082 


LOGICAL FIRST 

0083 

c 


0084 


CHARACTER*80 ANSWER 

0085 

c 


0086 

c 


0087 


INCLUDE 'COMMONRP.BLK* 

0088 

c 


0089 

c 

Initialize the Velocity increment and number of velocities 

0090 

c 


0091 


VINC-0.25 

0092 


NV-68 

0093 

c 


0094 

c 

Initialize the Obliquity increment and number of angles. 

0095 

c 


0096 


BINC-5.0 

0097 


NB-19 

0098 

c 


0099 

c 


0100 

c 


0101 


IBATCOM * 0 

0102 

c 
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0103 

C 

Write header to screen and read in orbital parameters 

0104 

C 

0105 


CALL RPINPUT 

0106 

c 


0107 

c 

SPECIFY DEBRIS ANALYSIS FOR RESREAD 

0108 

c 


0109 


I TYPE = 1 

0110 

c 


0111 

c 

Read in the RESPONSE output file. This is identical to 

0112 

c 

the RESREAD subroutine in BUMPER. 

0113 

c 


0114 


CALL RESREAD 

0115 

c 


0116 

c 

Determine the RESPONSE PIDs to process. 

0117 

c 

0118 

c 

If number of cases (NC) is only one then proceed. 

0119 

c 


0120 


IF (NC. EQ. 1) THEN 

0121 


PIDS(1)=1 

0122 


WRITE ( 6,20 ) 

0123 


20 FORMAT (/lX,’The one case in the RESPONSE file will be used' ) 

0124 

c 


0125 

c 

For multiple PIDs select one or all. If only one, NC is set to 1. 

0126 

c 

Write number of PIDs and first PID in A_SURF to screen. 

0127 

c 


0128 


ELSE 

0129 


WRITE ( 6,25 ) NC 

0130 


25 FORMAT (/lX,*The Number of PIDs in the RESPONSE file is ’,14) 

0131 

c 

0132 


WRITE ( 6,30 ) 

0133 


30 FORMAT (//lX,’Enter the PID number to use a specific PID.', 

0134 


2 /IX,’ Enter <CR> to use all PIDs.') 

0135 

c 


0136 


READ ( 5,35 ) ANSWER 

0137 


35 FORMAT (A) 

0138 


IF ( ANSWER(1:1).EQ. ' ' .OR. ANSWER. EQ. 'A') THEN 

0139 


DO 40 11=1, NC 

0140 


PIDS(Il) = 11 

0141 


40 CONTINUE 

0142 


ELSE 

0143 


READ ( ANSWER(1:80),45 )PIDS(1) 

0144 


45 FORMAT ( BN, 12 ) 

0145 


NC=1 

0146 


ENDIF 

0147 

c 


0148 


ENDIF 

0149 

c 


0150 

c 


0151 

c 

Print out the flux x area x time surface in a comma 

0152 

c 

delimited format to be read by spreadsheets. 

0153 

c 


0154 


CALL RP5TEXT 

0155 

c 


0156 

c 
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0157 C 

0158 C 

0159 C Close summary file 

0160 C 

0161 CLOSE ( UNIT-10, STATUS-’ KEEP’ ) 

0162 WRITEC 6,60003 ) RSFILE 

0163 60003 FORMATC /' The R_PLOT5 file is complete.'/ 

0164 1 ' filename: ’ ,A ) 

0165 

0166 C 

0167 C Finished 

0168 C 

0169 END 


Symbol Table for: MACII_R_plot5_16$main 

The following symbols were defined but NOT referenced: 


Symbol Name 


Class 

Other Information 





ADAR 


Array 

[Cmn 3 Dims - 
ADEN 

1:36 

Scalar 

[Cmn ] 
BATCOM 


Scalar 

[Cmn 3 
CONF 


Scalar 

[Cmn ] 
DIAM 


Scalar 

[Cmn ] 
FIRST 


Scalar 

IBOTHS 


Scalar 

[Cmn 3 
IDENS 


Scalar 

[Cmn 3 
IENV 


Scalar 

[Cmn 3 
IT 


Scalar 

[Cmn 3 
ITYPEIN 


Scalar 

[Cmn 3 
NT 


Scalar 

[Cmn 3 
PID 


Scalar 

[Cmn 3 
RANGE 


Scalar 

[Cmn 3 
RESPONSE 


Array 

[Cmn 3 Dims - 
ROOTFILE 

1:70 1:19 1:36 

Scalar 

[Cmn 3 




Data Type 

Size 

Offset 

RefCnt 

REAL*4 

144 

192436 

0 

REAL *4 

4 

192432 

0 

REAL*4 

4 

192624 

0 

CHARACTER 

12 

192632 

0 

REAL*4 

4 

4 

0 

L0GICAL*4 

4 


0 

INTEGER* 2 

2 

192628 

0 

INTEGER*2 

2 

192430 

0 

INTEGER*2 

2 

192428 

0 

INTEGER*2 

2 

8 

0 

INTEGER*2 

2 

192630 

0 

INTEGERS 

4 

16 

0 

INTEGER*2 

2 

114 

0 

REAL*4 

4 

30 

0 

REAL *4 

191520 

188 

0 

CHARACTER 

40 

192584 

0 
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SHDEN 

[Cron 3 Dims - 1:36 

Array 

REAL*4 

144 

191852 

0 

SHTHK 

Scalar 

REAL*4 

4 

192580 

0 

[Cron 3 
SHTHKM 

Array 

REAL*4 

144 

191708 

0 

[Cron 3 Dims - 1:36 

STANOM 

[Cron 3 Dims - 1:36 

REALM 

144 

192284 

0 

Array 

UNITS 

Scalar 

CHARACTER 

12 

192644 

0 

[Cron 3 
VR 

Scalar 

REALM 

4 

22 

0 

[Cron 3 
VWDEN 

[Cron 3 Dims - 1:36 

Array 

REALM 

144 

192140 

0 

VWTHK 

Scalar 

REALM 

4 


0 

VWTHKM 

[Cron 3 Dims - 1:36 

Array 

REALM 

144 

191996 

0 

Alphabetic List: 
Symbol Name 
Other Information 

Class 

Data Type 

Size 

Offset 

RefCnt 







ADAR 

[Cron 3 Dims - 1:36 

Array 

REALM 

144 

192436 

0 

ADEN 

Scalar 

REALM 

4 

192432 

0 

[Cron 3 
ANSWER 

Scalar 

CHARACTER 

80 

38 

4 

BATCOM 

Scalar 

REALM 

4 

192624 

0 

[Cran 3 
BINC 

Scalar 

REALM 

4 

0 

1 

[Cmn 3 
CONF 

Scalar 

CHARACTER 

12 

192632 

0 

[Cmn 3 
DIAM 

Scalar 

REALM 

4 

4 

0 

[Cmn 3 
FIRST 

Scalar 

LOGICALM 

4 


0 

11 

Scalar 

INTEGERM 

4 

120 

4 

IBATCOM 

Scalar 

INTEGER*2 

2 

118 

1 

IBOTHS 

Scalar 

INTEGER*2 

2 

192628 

0 

[Cmn 3 
IDENS 

Scalar 

INTEGER*2 

2 

192430 

0 

[Cmn 3 
IENV 

Scalar 

INTEGER*2 

2 

192428 

0 

[Cmn 3 
ISHLDS 
36 

Parameter 

INTEGERM 



8 = 

IT 

Scalar 

INTEGER*2 

2 

8 

0 

[Cmn 3 
ITYPE 

Scalar 

INTEGER*2 

2 

10 

1 

[Cmn 3 
ITYPEIN 

Scalar 

INTEGER*2 

2 

192630 

0 

[Cmn 3 
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NB 

Scalar 

INTEGER*Z 

2 

12 

1 

[Cmn 3 
NC 

Scalar 

INTEGER*2 

2 

14 

4 

[Cmn ] 
NT 

Scalar 

INTEGERM 

4 

16 

0 

[Cmn 3 
NV 

Scalar 

INTEGER*2 

2 

20 

1 

[Cmn 3 





0 

PID 
[Cmn 3 
PIDS 

Scalar 

INTEGER*2 

2 

114 

Array 

INTEGER*2 

72 

116 

4 

0 

[Cmn 3 Dims - 1:36 

RANGE 
[Cmn 3 
RESPONSE 

Scalar 

REALM 

4 

30 

Array 

REALM 

191520 

188 

0 

[Cmn 3 Dims - 1:70 1:19 1:36 

ROOTFILE 

Scalar 

CHARACTER 

40 

192584 

0 

[Cmn 3 




34 


RSFILE 
[Cmn 3 
SHDEN 

Scalar 

CHARACTER 

80 

1 

Array 

REALM 

144 

191852 

0 

[Cmn 3 Dims - 1:36 

SHTHK 
[Cmn 3 
SHTHKM 

Scalar 

REALM 

4 

192580 

0 

Array 

REALM 

144 

191708 

0 

[Cmn 3 Dims - 1:36 

STANDM 

Array 

REALM 

144 

192284 

0 

[Cmn 3 Dims - 1:36 

UNITS 

Scalar 

CHARACTER 

12 

192644 

0 

[Cmn 3 
VINC 

Scalar 

REALM 

4 

£6 

1 

[Cmn 3 




22 

0 

VR 

[Cmn 3 
VWOEN 

Scalar 

REALM 

4 

Array 

REALM 

144 

192140 

0 

[Cmn 3 Dims - 1:36 

VWTHK 

Scalar 

REALM 

4 


0 

VWTHKM 

Array 

REALM 

144 

191996 

0 

[Cmn 3 Dims - 1:36 

_$CMNBASES 

Cmn Hndls 



124 

1 

Stack Frame Information: 






Temporaries List: 
Symbol Name 
Other Information 

Class 

Data Type 

Size 

Offset 

RefCnt 


_$TEMP1 

Scalar 

INTEGERM 

4 

0 

2 

{Work Area} 



24 

4 


_$TLB0 

Scalar 

L0GICAL*1 

1 

28 

4 

_STILAsgn0 

Scalar 

INTEGERM 

4 

32 

2 

_STLB1 

Scalar 

L0GICAL*1 

1 

36 

2 

_$TLB2 

Scalar 

LOGICAL*! 

1 

37 

2 
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Variable List: 
Symbol Name 
Other Information 

Class 

Data Type 

Size 

Offset 

RefCnt 

ANSWER 


Scalar 

CHARACTER 

80 

38 

4 

IBATCOM 


Scalar 

INTEGERS 

2 

118 

1 

11 

_$CMNBASES 
Variables in 

Blank Common: 

Scalar 
Cmn Hndls 

Size: 

INTEGER*4 

192656 

4 

120 

124 

4 

1 

Symbol Name 
Other Information 

Class 

Data Type 

Size 

Offset 

RefCnt 

BINC 
[Cmn ] 


Scalar 

REALM 

4 

0 

1 

DIAM 
[Cmn 3 


Scalar 

REALM 

4 

4 

0 

IT 

[Cmn 3 


Scalar 

INTEGER*2 

2 

8 

0 

ITYPE 
[Cmn 3 


Scalar 

INTEGER*2 

2 

10 

1 

NB 

[Cmn 3 


Scalar 

INTEGER*2 

2 

12 

1 

NC 

[Cmn 3 


Scalar 

INTEGERS 

2 

14 

4 

NT 

[Cmn 3 


Scalar 

INTEGER*4 

4 

16 

0 

NV 

[Cmn 3 


Scalar 

INTEGER*2 

2 

20 

1 

VR 

[Cmn 3 


Scalar 

REALM 

4 

22 

0 

VINC 
[Cmn 3 


Scalar 

REALM 

4 

26 

1 

RANGE 
[Cmn 3 


Scalar 

REALM 

4 

30 

0 

RSFILE 
[Cmn 3 


Scalar 

CHARACTER 

80 

34 

1 

PID 
[Cmn 3 


Scalar 

INTEGER*2 

2 

114 

0 

PIDS 

[Cmn 3 Dims - 

1:36 

Array 

INTEGER*2 

72 

116 

4 

RESPONSE 
[Cmn 3 Dims - 

1:70 1:19 1:36 

Array 

REALM 

191520 

188 

0 

SHTHKM 

[Cmn 3 Dims - 

1:36 

Array 

REALM 

144 

191708 

0 

SHDEN 

[Cmn 3 Dims - 

1:36 

Array 

REALM 

144 

191852 

0 

VWTHKM 

[Cmn 3 Dims - 

1:36 

Array 

REALM 

144 

191996 

0 
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VWDEN 

[Cmn ] Dims - 1:36 

Array 

REALM 

144 

192140 

0 

STANDM 

[Cmn 3 Dims - 1:36 

Array 

REALM 

144 

192284 

0 

IENV 
[Cmn 3 

Scalar 

INTEGER*2 

2 

192428 

0 

IDENS 
[Cmn 3 

Scalar 

INTEGER*2 

2 

192430 

0 

ADEN 
[Cmn 3 

Scalar 

REALM 

4 

192432 

0 

ADAR 

[Cmn 3 Dims - 1:36 

Array 

REALM 

144 

192436 

0 

SHTHK 
[Cmn 3 

Scalar 

REALM 

4 

192580 

0 

ROOTFILE 
[Cmn 3 

Scalar 

CHARACTER 

40 

192584 

0 

BATCOM 
[Cmn 3 

Scalar 

REALM 

4 

192624 

0 

I BOTH S 
[Cmn 3 

Scalar 

INTEGER*2 

2 

192628 

0 

ITYPEIN 
[Cmn 3 

Scalar 

INTEGER*2 

2 

192630 

0 

CONF 
[Cmn 3 

Scalar 

CHARACTER 

12 

192632 

0 

UNITS 
[Cmn 3 

Scalar 

CHARACTER 

12 

192644 

0 


Local Stackframe size: 128 
Local Symbols: 60 


0170 C 

0171 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0172 C 

0173 SUBROUTINE RP5TEXT 

0174 C 

0175 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0176 C 

0177 C Write RESPONSE array for 5 degree and 0.5 km/sec increments 

0178 C 

0179 C Variable list 

0180 C Temporary array 

0181 C 

0182 C RPLINE = Contains diameters to penetrate at the obliquity increments 

0183 C Identical to Response at a particular velocity and PID. 

0184 C 

0185 INCLUDE ’COMMONRP.BLK' 

0186 REALM RPLINE(19) 

0187 C 

0188 C 

0189 C 

0190 DO 700 1=1, NC 

0191 
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0192 



WRITE ( 10,625) PIDS(I) 

0193 


625 

FORMAT (1H1, /IX,' RESPONSE PID=’ , ’ , ’ ,19) 

0194 



WRITE ( 10,630 ) PIDS(I) , ( J , J=0 ,90,5) 

0195 


630 

FORMAT ( I6.2,19(V,I12.2) ) 

0196 

C 


0197 



DO 690 K=2 , NV , 2 

0198 



DO 640 J=l, 19 

0199 



RPLINE(J)=RESPONSE(K, J ,PIDS(I)) 

0200 


640 

CONTINUE 

0201 



VR=K*VINC 

0202 



WRITEC 10,650) VR,CRPLINEQ), 3=1,19) 

0203 


650 

FORMAT ( F6.2,19(’ , * ,F12.8) ) 

0204 


690 

CONTINUE 

0205 


700 

CONTINUE 

0206 

C 



0207 



RETURN 

0208 

C 



0209 



END 


Symbol Table for: RP5TEXT 


The following symbols were defined but NOT referenced: 


Symbol Name 
Other Information 

Class 

Data Type 

Size 

Offset 

RefCnt 

ADAR 

Array 

REALM 

144 

192436 

0 

[Cmn 3 Dims - 1:36 

ADEN 

Scalar 

REALM 

4 

192432 

0 

[Cmn ] 
BATCOM 

Scalar 

REALM 

4 

192624 

0 

[Cmn 3 
BINC 

Scalar 

REALM 

4 

0 

0 

[Cmn 3 
CONF 

Scalar 

CHARACTER 

12 

192632 

0 

[Cmn 3 
DIAM 

Scalar 

REALM 

4 

4 

0 

[Cmn 3 
IBATCOM 

Scalar 

INTEGER*2 

2 


0 

I BOTH S 

Scalar 

INTEGER*2 

2 

192628 

0 

[Cmn 3 
IDENS 

Scalar 

INTEGER*2 

2 

192430 

0 

[Cmn 3 
IENV 

Scalar 

INTEGER*2 

2 

192428 

0 

[Cmn 3 
IT 

Scalar 

INTEGER*2 

2 

8 

0 

[Cmn 3 
ITYPE 

Scalar 

INTEGER*2 

2 

10 

0 

[Cmn 3 
ITYPEIN 

Scalar 

INTEGER*2 

2 

192630 

0 


[Cmn ] 
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NB 

Scalar 

INTEGER*2 

2 

12 

0 

[Cmn ] 
NT 

Scalar 

INTEGERS 

4 

16 

0 

[Cmn ] 
PID 

Scalar 

INTEGER*2 

2 

114 

0 

[Cmn 3 
RANGE 

Scalar 

REAL*4 

4 

30 

0 

[Cmn ] 
ROOTFILE 

Scalar 

CHARACTER 

40 

192584 

0 

[Cmn ] 
RSFILE 

Scalar 

CHARACTER 

80 

34 

0 

[Cmn ] 
SHDEN 

Array 

REAL*4 

144 

191852 

0 

[Cmn ] Dims - 1:36 

SHTHK 

Scalar 

REAL*4 

4 

192580 

0 

[Cmn 3 
SHTHKM 

[Cmn 3 Dims - 1:36 

Array 

REAL*4 

144 

191708 

0 

STANDM 

Array 

REAL*4 

144 

192284 

0 

[Cmn ] Dims - 1:36 

UNITS 

Scalar 

CHARACTER 

12 

192644 

0 

[Cmn 3 
VWDEN 

Array 

REAL*4 

144 

192140 

0 

[Cmn 3 Dims - 1:36 

VWTHK 

Scalar 

REAL*4 

4 


0 

VWTHKM 

[Cmn 3 Dims - 1:36 

Array 

REALM 

144 

191996 

0 

Alphabetic List: 
Symbol Name 
Other Information 

Class 

Data Type 

Size 

Offset 

RefCnt 


ADAR 

[Cmn 3 Dims - 1:36 

Array 

REALM 

144 

192436 

0 

ADEN 
[Cmn 3 

Scalar 

REAL*4 

4 

192432 

0 

BATCOM 
[Cmn 3 

Scalar 

REAL*4 

4 

192624 

0 

BINC 
[Cmn 3 

Scalar 

REAL*4 

4 

0 

0 

CONF 
[Cmn 3 

Scalar 

CHARACTER 

12 

192632 

0 

DIAM 
[Cmn 3 

Scalar 

REAL*4 

4 

4 

0 

I 

Scalar 

INTEGER*4 

4 

144 

5 

I BATCOM 

Scalar 

INTEGER*2 

2 


0 

IBOTHS 
[Cmn 3 

Scalar 

INTEGER*2 

2 

192628 

0 

IDENS 
[Cmn 3 

Scalar 

INTEGER*2 

2 

192430 

0 

IENV 
[Cmn 3 

Scalar 

INTEGER*2 

2 

192428 

0 
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ISHLDS 

36 

IT 


Parameter 

Scalar 

INTEGERS 

INTEGER*2 

2 

8 

8 

0 

[Cmn ] 
ITYPE 


Scalar 

INTEGER*2 

2 

10 

0 

[Cmn 3 
ITYPEIN 


Scalar 

INTEGER*2 

2 

192630 

0 

[Cmn 3 
J 


Scalar 

INTEGERS 

4 

148 

10 

K 


Scalar 

INTEGERS 

4 

152 

4 

NB 


Scalar 

INTEGERS 

2 

12 

0 

[Cmn ] 
NC 


Scalar 

INTEGER*2 

2 

14 

1 

[Cmn 3 
NT 


Scalar 

INTEGERM 

4 

16 

0 

[Cmn 3 
NV 


Scalar 

INTEGER*2 

2 

20 

1 

[Cmn 3 
PID 


Scalar 

INTEGER*2 

2 

114 

0 

[Cmn 3 
PIDS 


Array 

INTEGER*2 

72 

116 

6 

[Cmn 3 Dims 
RANGE 

- 1:36 

Scalar 

REAL*4 

4 

30 

0 

[Cmn 3 
RESPONSE 


Array 

REAL*4 

191520 

188 

2 

[Cmn 3 Dims 
ROOTFILE 

- 1:70 1:19 1:36 

Scalar 

CHARACTER 

40 

192584 

0 

[Cmn 3 
RPLINE 


Array 

REAL*4 

76 

68 

4 

Dims - 1:19 

RSFILE 

Scalar 

CHARACTER 

80 

34 

0 

[Cmn 3 
SHDEN 


Array 

REALM- 

144 

191852 

0 

[Cmn 3 Dims 
SHTHK 

- 1:36 

Scalar 

REALM 

4 

192580 

0 

[Cmn 3 
SHTHKM 


Array 

REAL *4 

144 

191708 

0 

[Cmn 3 Dims 
STANDM 

- 1:36 

Array 

REAL*4 

144 

192284 

0 

[Cmn 3 Dims 
UNITS 

- 1:36 

Scalar 

CHARACTER 

12 

192644 

0 

[Cmn 3 
VINC 


Scalar 

REAL*4 

4 

26 

1 

[Cmn 3 
VR 


Scalar 

REALM 

4 

22 

2 

[Cmn 3 
VWDEN 


Array 

REALM 

144 

192140 

0 

[Cmn 3 Dims 

VWTHK 

VWTHKM 

- 1:36 

Scalar 

Array 

REALM 
REAL *4 

4 

144 

191996 

0 

0 

[Cmn 3 Dims 
_$CMNBASES 

Stack Frame 

- 1:36 

Information : 

Cmn Hndls 



156 

1 


C-11 



R_PLOT5 Listing 


Temporaries List: 
Symbol Name 
Other Information 

Class 

Data Type 

Size 


Offset 

RefCnt 


_$TEMPD4 

Scalar 

INTEGERS 


4 

0 

2 

_$TEMP3 

Scalar 

INTEGER*4 


4 

4 

2 

_STEMP2 

Scalar 

INTEGERS 


4 

8 

2 

_$TEMPD3 

Scalar 

INTEGER*4 


4 

12 

2 

_STEMP1 

Scalar 

INTEGER*4 


4 

16 

2 

{Work Area} 




24 

20 


_$TTL0 

Scalar 

INTEGERS 


4 

44 

8 

_$TILAsgn0 

Scalar 

INTEGERS 


4 

48 

2 

_$TIL1 

Scalar 

INTEGER*4 


4 

52 

2 

_$TE0 

Scalar 

EXTENDED* 12 


12 

56 

2 

Variable List: 







Symbol Name 
Other Information 

Class 

Data Type 

Size 


Offset 

RefCnt 

RPLINE 

Dims - 1:19 

Array 

REAL*4 


76 

68 

4 

I 

Scalar 

INTEGER*4 


4 

144 

5 

J 

Scalar 

INTEGER*4 


4 

148 

10 

K 

Scalar 

INTEGER*4 


4 

152 

4 

.SCMNBASES 

Cmn Hndls 




156 

1 

Variables in Blank Common: 

Size: 

192656 





Symbol Name 
Other Information 

Class 

Data Type 

Size 


Offset 

RefCnt 


BINC 

Scalar 

REAL*4 

4 

0 

0 

[Cmn ] 
DIAH 

Scalar 

REAL*4 

4 

4 

0 

[Cmn ] 
IT 

Scalar 

INTEGER*2 

2 

8 

0 

[Cmn ] 
ITYPE 

Scalar 

INTEGERS 

2 

10 

0 

[Cmn } 
NB 

Scalar 

INTEGER*2 

2 

12 

0 

[Cmn ] 
NC 

Scalar 

INTEGER*2 

2 

14 

1 

[Cmn ] 
NT 

Scalar 

INTEGER*4 

4 

16 

0 

[Cmn ] 
NV 

Scalar 

INTEGER*2 

2 

20 

1 

[Cmn ] 
VR 

Scalar 

REAL*4 

4 

22 

2 


[Cmn ] 
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VINC 


Scalar 

[Cmn ] 
RANGE 


Scalar 

[Cmn 3 
RSFILE 


Scalar 

[Cmn ] 
PID 


Scalar 

[Cmn 3 
PIDS 


Array 

[Cmn 3 Dims - 
RESPONSE 

1:36 

Array 

[Cmn ] Dims - 
SHTHKM 

1:70 1:19 1:36 

Array 

[Cmn ] Dims - 
SHDEN 

1:36 

Array 

[Cmn ] Dims - 
VWTHKM 

1:36 

Array 

[Cmn ] Dims - 
VWDEN 

1:36 

Array 

[Cmn 3 Dims - 
STANDM 

1:36 

Array 

[Cmn 3 Dims - 
IENV 

1:36 

Scalar 

[Cmn 3 
IDENS 


Scalar 

[Cmn 3 
ADEN 


Scalar 

[Cmn 3 
ADAR 


Array 

[Cmn 3 Dims - 
SHTHK 

1:36 

Scalar 

[Cmn 3 
ROOTFILE 


Scalar 

[Cmn 3 
BATCOM 


Scalar 

[Cmn 3 
I BOTH S 


Scalar 

[Cmn 3 
ITYPEIN 


Scalar 

[Cmn 3 
CONF 


Scalar 

[Cmn 3 
UNITS 


Scalar 

[Cmn 3 




REALM 

4 

26 

1 

REALM 

4 

30 

0 

CHARACTER 

80 

34 

0 

INTEGER*2 

2 

114 

0 

INTEGERS 

72 

116 

6 

REALM 

191520 

188 

2 

REALM 

144 

191708 

0 

REALM 

144 

191852 

0 

REALM 

144 

191996 

0 

REALM 

144 

192140 

0 

REALM 

144 

192284 

0 

INTEGER*2 

2 

192428 

0 

INTEGER*2 

2 

192430 

0 

REALM 

4 

192432 

0 

REALM 

144 

192436 

0 

REALM 

4 

192580 

0 

CHARACTER 

40 

192584 

0 

REALM 

4 

192624 

0 

INTEGER*2 

2 

192628 

0 

INTEGER*2 

2 

192630 

0 

CHARACTER 

12 

192632 

0 

CHARACTER 

12 

192644 

0 


Local Stackframe size: 160 
Local Symbols: 67 


0210 C 

0211 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0212 C 

0213 SUBROUTINE RESREAD 
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0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 
0267 


C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C Resread reads in the output from the RESPONSE code. This output 
C consists of the critical diameter data as a function of property 
C id, impact angle, and impact velocity. 

C 

C 

C note: for variables contained in the common block refer to the main 
C listing for definition. 

C 

C 

C Variable list 
C 

C answer « character string represnting user input 
C itf ■ analysis type for rfile 
C rfile * response output filename 

C ienvr - environment for response file 

C 

CHARACTER LENGTH*2 
CHARACTER*80 ANSWER, RFILE .Form 
CHARACTER*46 A46 
CHARACTER* 12 B12A, B12B 
CHARACTER*8 C8A, C8B 
CHARACTER*2 D2 
REAL*4 STND 

C INTEGER*4 ITF, ITA, IC, ICT, ICB, IPF 

C !!! CHANGES TO BE COMPATIBLE WITH BUMPERII verl.3 
INTEGER*2 ITF, ITA, IC, ICT, ICB, IPF, IPFUNC3 
INTEGER*2 IENVR 
C 

INCLUDE ' COMMONRP . BLK * 

IF (IBOTHS.EQ.2) GOTO 60 
C 

C Read in the RESPONSE output filename , set default to resp.dat 
C 

IF (INDEX(ROOTFILE,’.’) .EQ. 0)ROOTFILE=’ STATION.’ 
ANSWER=R00TFILE(1:INDEX(R00TFILE, ’ . ’))//’ RSP’ 

JOT = INDEXC ROOTFILE , ’ . ’ ) 

WRITE (LENGTH, '(12)’ )J0T+3 

FORM=’ (/IX, "RESPONSE OUTPUT FILENAME (<CR>=" ,A ’//LENGTH// 

• > ”,S)’ 

10 WRITE ( 6, FORM )ANSWER 
READ ( 5,30 ) RFILE 
30 FORMAT (A) 

C 

C ! ! ! ! THIS OPEN FOR THE MAC WILL GIVE THE NORMAL FINDER DIALOG 
C BOX. THE DIRLIST METHOD IS SKIPPED 

IF (RFILE(1:1).EQ. '?') THEN 

OPEN ( UNIT=23,FILE=* ,STATUS='OLD' ,FORM=’ UNFORMATTED' ,ERR=40 ) 
INQUIRE( UNIT=23,NAME=RFILE) 

GOTO 60 
END IF 
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0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 


C 

C ! ! ! ! END OF MAC OPEN 
C 

IF (RFILE(1:1).EQ. '?') THEN 
CALL DIRLIST 
GOTO 10 
END IF 

IF C RFILE(1:4).EQ. ' 1 ) THEN 

RFILE-ANSWER 
ELSE 

ROOTFILE - RFile(l:INDEX(RFile, ' . ’)) 

ENDIF 

C 

IF(IBATCOM.EQ.l) THEN 
WRITE(13, '(A)') RFILE 
RETURN 
END IF 
C 

C Open the file 
C 

OPEN C UNIT=23,FILE-RFILE,STATUS='OLD' ,FORM=*' UNFORMATTED' ,ERR«40 ) 
C 

GO TO 60 
C 

C Error control on open 
C 

40 WRITE ( 6,50 ) 

50 FORMAT ( /IX, 'UNABLE TO OPEN FILE’ ) 

GO TO 10 
C 

C Read in the analysis type and the number of property cases. 

C 

C 60 READ (23) ITYPEIN,ITF,IDens,NC 
C ! ! ! NO ERROR CHECKING ON IENVR 

60 READ (23) ITYPEIN , ITF , I ENVR , I Dens , NC 
C WRITE(6,*) ’ITYPEIN, ITF, IDens.NC' 

C WRITE(6,*) ITYPEIN, ITF, IDens.NC 

IF (ITYPEIN. EQ. 3. AND. IBOTHS.EQ.l) ITYPE=1 
IF (IDens.EQ.l) THEN 
WRITE (6,63) 

63 FORMAT (/5X,’ Constant density threat’) 

ELSE IF (IDens.EQ.2) THEN 

WRITE (6,64) 

64 FORMAT (/5X,' Variable density threat’) 

END IF 

C 

C Check that the response file is the correct analysis type 
C 

IF ( ITF.NE.ITYPE ) THEN 
IF ( ITYPE.EQ.l ) THEN 
WRITE ( 6,70 ) 

70 FORMAT ( /IX, ’DEBRIS ANALYSIS SPECIFIED IN GEOMETRY FILE ’, 

1 'BUT RESPONSE FILE IS FOR METEOROIDS ’) 
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0322 


ELSE 

0323 


WRITE ( 6,80 ) 

0324 


80 FORMAT (/IX, ’METEOROID ANALYSIS SPECIFIED IN GEOMETRY FILE 

0325 


1 * BUT RESPONSE FILE IS FOR DEBRIS' ) 

0326 


END IF 

0327 

C 


0328 


WRITE ( 6,90 ) 

0329 


90 FORMAT ( /IX, 'DO YOU WISH TO CONTINUE WITH GEOMETRY OPTION ’, 

0330 


1 '(<CR>-NO) > \$) 

0331 


READ ( 5,30 ) ANSWER 

0332 

C 


0333 


IF ( ANSWER(1:1).EQ.'Y’ .OR. ANSWER(1:1).EQ. 'y' ) THEN 

0334 


GO TO 10 

0335 


ELSE 

0336 


STOP 

0337 


END IF 

0338 

C 


0339 


END IF 

0340 

C 


0341 

C 

Read in the impact angle information 

0342 

C 


0343 


READ (23) NB,BINC 

0344 

C 

WRITE(6,*) 'NB.BINC' 

0345 

C 

WRITE(6,*) NB.BINC 

0346 

C 


0347 

C 

Read in the impact velocity information 

0348 

C 


0349 


READ (23) NV.VINC 

0350 

C 

WRITE(6,*) ’IMPACT VELOCITY, VEL INCR. ’ 

0351 

C 

WRITE(6,*) NV.VINC 

0352 

C 


0353 

C 

Initialize RESPONSE to 0.0 

0354 

C 


0355 


DO 200 I-l.NC 

0356 


DO 150 J-l.NB 

0357 


DO 100 K-l.NV 

0358 


RESPONSE ( K,J,I ) - 0. 

0359 


100 CONTINUE 

0360 


150 CONTINUE 

0361 


200 CONTINUE 

0362 

C 


0363 

C 

Read in the critical diameter data 

0364 

C 


0365 

C 

WRITE(6,*) ’NC.NB.NV’ 

0366 

C 

WRITE(6,*) NC,NB,NV 

0367 

C 

WRITE (6,*) 'RESPONSE(K, J ,1)' 

0368 

C 

Loop thru the property id's 

0369 


DO 400 1*1, NC 

0370 

C 


0371 

C 

Loop thru the impact angles 

0372 


DO 300 J=1,NB 

0373 

C 


0374 

C 

Loop thru the impact velocities 

0375 


DO 250 K-l.NV 


C-16 



R_PL0T5 Listing 


0376 

C 



0377 

C 


Store the critical diameter in response 

0378 



READ (23) RESPONSES, J, I) 

0379 

C 


WRITE (6,*) RESPONSES, J, I) 

0380 


250 

CONTINUE 

0381 


300 

CONTINUE 

0382 


400 

CONTINUE 

0383 

C 



0384 

C 

! ! ! 

! ! THE NEXT LINE WAS COMMENTED OUT FOR R_PLOT5 

0385 

C 


IF (INPUTCD.EQ.2) CALL SETDIAMS 

0386 

C 



0387 



READ ( 23 , END=440 , ERR=440 ) A46 

0388 

C 


WRITE (6,*) 'A46' 

0389 

C 


WRITE ( 6,'( //IX, A)* ) A46 

0390 



WRITE ( 10,' ( //IX, A)’ ) A46 

0391 



READ ( 23 ) C8A , ITA , C8B , ICB , UNITS 

WRITE ( 10,’ ( A, 14)’) ' Threat (1 Debris, 2 Meteoroid) \ITA 

0392 



0393 



WRITE ( 10, '( A, 14)’) ' Density (1 Constant, 2 Function) '.IDens 

0394 



WRITE ( 10/ ( A, 14)') 1 Number of PID Cases \ICB 

0395 



WRITE ( 10,'( 2A)') ' Units ’.UNITS 

0396 

C 


WRITE(6,*) ' C8A , C8B ' 

0397 

C 


WRITE (6,*) C8A.C8B 

0398 

C 


WRITE ( 6,'( A, 14)') • Threat (1 Debris, 2 Meteoroid) '.ITA 

0399 

C 


WRITE ( 6,'( A, 14)') ' Density (1 Constant, 2 Function) ', IDens 
WRITE ( 6,'( A, 14)') • Number of PID Cases ',ICB 

0400 

C 


0401 

C 


WRITE ( 6,'( 2A)’) ' Units '.UNITS 

0402 



DO 420 I-l.ICB 

READ ( 23 ) ICT , D2 , B12A , B12B , IPF , IPFUNC3 

0403 



0404 



WRITE ( 10,411) I 

0405 

411 

FORMAT( /IX, 'PID NUMBER ',14 ) 

0406 

C 



0407 



IF (ICT.EQ.2) THEN 

0408 



IF ( IPF.EQ.l ) THEN 

0409 



WRITE ( 10,485) 

0410 



ELSE IF ( IPF.EQ.2 ) THEN 

0411 



WRITE ( 10,486) 

0412 



ELSE IF ( IPF.EQ.3 ) THEN 

0413 



WRITE ( 10,487) 

0414 



ELSE IF ( IPF.EQ.4 ) THEN 

0415 



WRITE ( 10,488) 

0416 



ELSE IF ( IPF.EQ.5 ) THEN 

0417 



WRITE ( 10,484) 

0418 



ELSE IF ( IPF.EQ.6 ) THEN 

0419 



WRITE ( 10,489) 

0420 



ELSE IF ( IPF.EQ.7 ) THEN 

0421 



WRITE ( 10,490) 

0422 



ELSE IF ( IPF.EQ.8 ) THEN 

0423 



WRITE ( 10,491) 

0424 



ELSE IF ( IPF.EQ.9 ) THEN 

0425 



WRITE ( 10,492) 

0426 



ELSE IF ( IPF.EQ.10 ) THEN 

0427 



WRITE ( 10,493) 

0428 



ELSE IF ( IPF.EQ.ll ) THEN 

0429 



WRITE ( 10,494) 
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0430 



ELSE IF ( IPF.EQ.12 ) THEN 

0431 



WRITE ( 10,495) 

0432 



ELSE IF ( IPF.EQ.13 ) THEN 

0433 



WRITE ( 10,496) 

0434 



ELSE IF C IPF.EQ.14 ) THEN 

0435 



WRITE C 10,497) 

0436 



END IF 

0437 



END IF 

0438 


485 

FORMAT C /IX,’ ORIGINAL PENETRATION FUNCTION ' ) 

0439 


486 

FORMAT ( /IX, 'PEN4 PENETRATION FUNCTION’) 

0440 


487 

FORMAT C /IX, 'REGRESSION PENETRATION FUNCTION’) 

0441 


488 

FORMAT ( /IX, ’COUR-PALAIS PENETRATION FUNCTION ' ) 

0442 


484 

FORMAT ( /IX, ’BOEING INTERP PENETRATION FUNCTION’) 

0443 


489 

FORMAT C /IX, ’DEVELOPMENTAL6, USER INPUT’) 

0444 


490 

FORMAT ( /IX, 'DEVELOPMENTAL/, USER INPUT') 

0445 


491 

FORMAT ( /IX, ' DEVELOPMENTAL8 , USER INPUT’) 

0446 


492 

FORMAT ( /IX, 'DEVELOPMENTAL9, USER INPUT') 

0447 


493 

FORMAT ( /IX, 'DEVELOPMENTAL10, USER INPUT’) 

0448 


494 

FORMAT C /IX, 'DEVELOPMENTAL11, USER INPUT') 

0449 


495 

FORMAT C /IX, 'DEVELOPMENTAL12, USER INPUT’) 

0450 


496 

FORMAT ( /IX, 'DEVELOPMENTAL 13, USER INPUT’) 

0451 


497 

FORMAT C /IX, 'DEVEL0PMENTAL14, USER INPUT’) 

0452 



WRITE ( 10,'C /A )' ) ' Configuration Shield Wall' 

0453 

C 


WRITE ( 6,* ) ' ICT , D2 , B12A , B12B ’ 

0454 

C 


WRITE C 6,* ) ICT , D2 , B12A , B12B 

0455 



IF (ICT.EQ.l) CONF - 'Single Plate' 

0456 



IF (ICT.EQ.2) CONF - 'Double Plate’ 

0457 



IF (ICT.EQ.3) CONF « 'Multiwall’ 

0458 



WRITE ( 10,'C 1X,A,4X,2A )' ) CONF,B12A,B12B 

0459 

C 


WRITE ( 6,'C 1X,A,4X,2A )' ) CONF,B12A,B12B 

0460 



READ C 23 ) ShThk , VWThk , STND , ShDen(I) , VWDen(I) .ADEN 

0461 

C 


WRITE C 6,* ) 'ShThk, VWThk, STND, ShDen(I),VWDen(I), ADEN, I’ 

0462 

C 


WRITE ( 6,* ) ShThk, VWThk, STND, ShDenCI),VWDen(I), ADEN, I 

0463 



IF (ICT.EQ.3) THEN 

0464 



WRITE ( 10,'C A,A,F8.4)') ' Combined Areal Density' 

0465 


+ 

' of All Shields - ' .ADEN 

0466 



WRITE ( 10,'C A, F8. 4)’) ’ Total Standoff = ' 

0467 


+ 

,STND 

0468 

C 


WRITE ( 6, ’( A,A,F8.4)') ' Combined Areal Density’ 

0469 

C 

+ 

’ of All Shields = ’ .ADEN 

0470 

C 


WRITE ( 6,'( A.F8.4)’) ’ Total Standoff = ' 

0471 

C 

+ 

,STND 

0472 



GOTO 410 

0473 



END IF 

0474 

C 


WRITE ( 6,'( A,F8.4)’) ’ Shield Thickness - '.ShThk 

0475 



IF (SHTHK. NE. 0.0) 

0476 


+ 

WRITE ( 10,'( A.F8.4)') ’ Shield Thickness - '.ShThk 

0477 

410 

WRITE ( 10,'( A.F8.4)') ' Vessel Wall Thickness = '.VWThk 

0478 

C 


WRITE ( 6, '( A.F8.4)’) ’ Vessel Wall Thickness - '.VWThk 

0479 



IF (ICT.NE.3) THEN 

0480 



IF (SHTHK. NE. 0.0. AND. STND. NE. 0.0) 

0481 


+ 

WRITE C 10,'( A.F8.4)’) ’ Standoff - '.STND 

0482 

C 


WRITE ( 6, '( A , F8 . 4) ' ) ’ Standoff = ' ,STND 

0483 



END IF 
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0484 


IF C Units .EQ. ' ENGLISH 

0485 


ShThkM(I) = ShThk*2.54 

0486 


VWThkM(I) = VWThk*2.54 

0487 


ADAR(I)=ADEN/ . 0142233 

0488 


ELSE 

0489 


ShThkM(I) = ShThk 

0490 


VWThkM(I) = VWThk 

0491 


ADAR(I)=ADEN 

0492 


END IF 

0493 



0494 

C 

With or without 30 MLI 

0495 


READ ( 23 ) A46 

0496 


WRITE ( 10,’ ( 4X,A)’ ) A46 

0497 

C 

WRITE ( 6,’( 4X,A)’ ) A46 

0498 


420 CONTINUE 

0499 


GO TO 450 

0500 


440 WRITE C 10,42 ) 

0501 


42 FORMAT ( /2X,’ No Header follow 

0502 

c 


0503 


450 IF (IBOTHS.EQ.l) RETURN 

0504 

c 


0505 

c 

Close the file and return 

0506 

c 


0507 


CLOSE C UNIT-23, STATUS* ’KEEP' ) 

0508 

c 


0509 

c 

Write Rfile to summary file 

0510 

c 


0511 


WRITE ( 10,500 )RFILE 

0512 


500 FORMATC IX,' RESPONSE OUTPUT FILE 

0513 

c 


0514 


RETURN 

0515 

c 


0516 


END 


• ) THEN 


*,A ) 


) 


Symbol Table for: RESREAD 

The following symbols were defined but NOT referenced: 


Symbol Name 
Other Information 

Class 

Data Type 

BATCOM 

Scalar 

REAL *4 

[Cmn ] 
DIAM 

Scalar 

REAL *4 

[Cmn ] 
IC 

Scalar 

INTEGER*2 

IENV 

Scalar 

INTEGER*2 

[Cmn ] 
IT 

Scalar 

INTEGERS 

[Cmn ] 
NT 

Scalar 

INTEGERS 

[Cmn ] 




Offset RefCnt 


4 192624 0 

4 4 0 

2 

2 192428 

2 8 0 

4 16 0 
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PID 

Scalar 

INTEGER*2 

2 

114 

0 

[Cmn ] 
PIDS 

Array 

INTEGER*2 

72 

116 

0 

[Cmn 3 - 1:36 

RANGE 

Scalar 

REALM 

4 

30 

0 

[Cmn ] 
RSFILE 

Scalar 

CHARACTER 

80 

34 

0 

[Cmn 3 
STANDM 

Array 

REALM 

144 

192284 

0 

[Cmn 3 Dims - 1:36 

VR 

Scalar 

REAL*4 

4 

22 

0 

[Cmn 3 






Alphabetic List: 
Symbol Name 
Other Information 

Class 

Data Type 

Size 

Offset 

RefCnt 

A46 

Scalar 

CHARACTER 

46 

338 

4 

ADAR 

Array 

REALM 

144 

192436 

4 

[Cmn 3 Dims - 1:36 

ADEN 

Scalar 

REALM 

4 

192432 

4 

[Cmn 3 
ANSWER 

Scalar 

CHARACTER 

80 

98 

6 

B12A 

Scalar 

CHARACTER 

12 

384 

2 

B12B 

Scalar 

CHARACTER 

12 

396 

2 

BATCOM 

Scalar 

REALM 

4 

192624 

0 

[Cmn 3 
BINC 

Scalar 

REALM 

4 

0 

1 

[Cmn 3 
C8A 

Scalar 

CHARACTER 

8 

408 

1 

C8B 

Scalar 

CHARACTER 

8 

416 

1 

CONF 

Scalar 

CHARACTER 

12 

192632 

4 

[Cmn 3 
D2 

Scalar 

CHARACTER 

2 

424 

1 

DIAM 

Scalar 

REALM 

4 

4 

0 

[Cmn 3 
FORM 

Scalar 

CHARACTER 

80 

258 

2 

I 

Scalar 

INTEGERM 

4 

454 

17 

IBATCOM 

Scalar 

INTEGER*2 

2 

444 

1 

I BOTH S 

Scalar 

INTEGER*2 

2 

192628 

3 

[Cmn 3 
IC 

Scalar 

INTEGER*2 

2 


0 

ICB 

Scalar 

INTEGER*2 

2 

436 

3 

ICT 

Scalar 

INTEGER*2 

2 

434 

7 

IDENS 
[Cmn 3 
IENV 

Scalar 

INTEGER*2 

2 

192430 

4 

Scalar 

INTEGER*2 

2 

192428 

0 

[Cmn 3 
IENVR 

Scalar 

INTEGER*2 

2 

442 

1 

IPF 

Scalar 

INTEGER*2 

2 

438 

15 

IPFUNC3 

Scalar 

INTEGER*2 

2 

440 

1 

ISHLDS 

Parameter 

INTEGERM 



8 - 


36 
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IT 

Scalar 

[Cmn 3 
ITA 

Scalar 

ITF 

Scalar 

ITYPE 

Scalar 

[Cmn ] 
ITYPEIN 

Scalar 

[Cmn ] 
J 

Scalar 

JOT 

Scalar 

K 

Scalar 

LENGTH 

Scalar 

NB 

Scalar 

[Cmn 3 
NC 

Scalar 

[Cmn 3 
NT 

Scalar 

[Cmn 3 
NV 

Scalar 

[Cmn 3 
PID 

Scalar 

[Cmn 3 
PIDS 

Array 

[Cmn 3 Dims - 1:36 

RANGE 

Scalar 

[Cmn 3 
RESPONSE 

Array 

[Cmn 3 Dims - 1:70 

1:19 1:36 

RFILE 

Scalar 

ROOTFILE 

Scalar 

[Cmn 3 
RSFILE 

Scalar 

[Cmn 3 
SHDEN 

Array 

[Cmn 3 Dims - 1:36 

SHTHK 

Scalar 

[Cmn 3 
SHTHKM 

Array 

[Cmn 3 Dims - 1:36 

STANDM 

Array 

[Cmn 3 Dims - 1:36 

STND 

Scalar 

UNITS 

Scalar 

[Cmn 3 
VINC 

Scalar 

[Cmn 3 
VR 

Scalar 

[Cmn 3 
VWDEN 

Array 

[Cmn 3 Dims - 1:36 

VWTHK 

Scalar 

VWTHKM 

Array 

[Cmn 3 Dims - 1:36 

_$CMNBASES 

Cmn Hndls 


INTEGERS 

2 

8 

0 

INTEGER*2 

2 

432 

2 

INTEGER*2 

2 

430 

2 

INTEGER*2 

2 

10 

3 

INTEGER*2 

2 

192630 

2 

INTEGER*4 

4 

458 

6 

INTEGERM 

4 

450 

2 

INTEGERS 

4 

462 

6 

CHARACTER 

2 

96 

2 

INTEGER*2 

2 

12 

3 

INTEGER*2 

2 

14 

3 

INTEGER*4 

4 

16 

0 

INTEGER*2 

2 

20 

3 

INTEGER*2 

2 

114 

0 

INTEGER*2 

72 

116 

0 

REAL*4 

4 

30 

0 

REAL*4 

191520 

188 

4 

CHARACTER 

80 

178 

11 

CHARACTER 

40 

192584 

6 

CHARACTER 

80 

34 

0 

REAL *4 

144 

191852 

2 

REAL*4 

4 

192580 

6 

REAL*4 

144 

191708 

4 

REAL*4 

144 

192284 

0 

REALM 

4 

426 

4 

CHARACTER 

12 

192644 

3 

REALM 

4 

26 

1 

REAL*4 

4 

22 

0 

REAL*4 

144 

192140 

2 

REAL*4 

4 

446 

4 

REAL*4 

144 

191996 

4 



466 

1 
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Stack Frame Information: 
Temporaries List: 


Symbol Name 
Other Information 

Class 

Data Type Size 


Offset 

RefCnt 

_$TEMP10 

Scalar 

INTEGERS 

4 

0 

2 

_$TEMP9 

Scalar 

INTEGER*4 

4 

4 

2 

_STEMP8 

Scalar 

INTEGERS 

4 

8 

2 

_STEMP7 

Scalar 

INTEGERS 

4 

12 

2 

_$TEMP6 

Scalar 

INTEGERS 

4 

16 

2 

_STEMP5 

Scalar 

INTEGERH 

4 

20 

2 

_$TEMP4 

Scalar 

INTEGERS 

4 

24 

2 

_STEMP3 

Scalar 

DYNCHAR 

4 

28 

3 

_$TEMP2 

Scalar 

DYNCHAR 

4 

32 

3 

_$TEMP1 

Scalar 

DYNCHAR 

4 

36 

3 

{Work Area} 



24 

40 


_$TLB0 

Scalar 

LOGICAL* 1 

1 

64 

72 

_$TIL0 

Scalar 

INTEGER*4 

4 

68 

14 

_$TLB1 

Scalar 

L0GICAL*1 

1 

72 

6 

_$TLB2 

Scalar 

LOGICAL*l 

1 

73 

6 

_JTILAsgn0 

Scalar 

INTEGER*4 

4 

76 

14 

_STIL1 

Scalar 

INTEGER*4 

4 

80 

2 

_$TE0 

Scalar 

EXTENDED* 12 

12 

84 

6 

Variable List: 






Symbol Name 

Class 

Data Type Size 


Offset 

RefCnt 

Other Information 






LENGTH 

Scalar 

CHARACTER 

2 

96 

2 

ANSWER 

Scalar 

CHARACTER 

80 

98 

6 

RFILE 

Scalar 

CHARACTER 

80 

178 

11 

FORM 

Scalar 

CHARACTER 

80 

258 

2 

A46 

Scalar 

CHARACTER 

46 

338 

4 

B12A 

Scalar 

CHARACTER 

12 

384 

2 

B12B 

Scalar 

CHARACTER 

12 

396 

2 

C8A 

Scalar 

CHARACTER 

8 

408 

1 

C8B 

Scalar 

CHARACTER 

8 

416 

1 

D2 

Scalar 

CHARACTER 

2 

424 

1 

STND 

Scalar 

REAL*4 

4 

426 

4 

ITF 

Scalar 

INTEGER*2 

2 

430 

2 

ITA 

Scalar 

INTEGER*2 

2 

432 

2 

ICT 

Scalar 

INTEGER*2 

2 

434 

7 

ICB 

Scalar 

INTEGER*2 

2 

436 

3 

IPF 

Scalar 

INTEGER*2 

2 

438 

15 

IPFUNC3 

Scalar 

INTEGER*2 

2 

440 

1 

IENVR 

Scalar 

INTEGER*2 

2 

442 

1 

IBATCOM 

Scalar 

INTEGER*2 

2 

444 

1 

VWTHK 

Scalar 

REAL*4 

4 

446 

4 

JOT 

Scalar 

INTEGER*4 

4 

450 

2 

I 

Scalar 

INTEGER*4 

4 

454 

17 


C-22 



R_PL0T5 Listing 


J Scalar INTEGER*4 4 458 6 
K Scalar INTEGERM 4 462 6 
.SCMNBASES Cmn Hndls 466 1 


Variables in Blank Common: Size: 192656 


Symbol Name Class 

Other Information 


BINC 


Scalar 

[Cmn ] 
DIAM 


Scalar 

[Cmn ] 
IT 


Scalar 

[Cmn ] 
ITYPE 


Scalar 

[Cmn ] 
NB 


Scalar 

[Cmn 3 
NC 


Scalar 

[Cmn 3 
NT 


Scalar 

[Cmn 3 
NV 


Scalar 

[Cmn 3 
VR 


Scalar 

[Cmn 3 
VINC 


Scalar 

[Cmn 3 
RANGE 


Scalar 

[Cmn 3 
RSFILE 


Scalar 

[Cmn 3 
PID 


Scalar 

[Cmn 3 
PIDS 


Array 

[Cmn 3 Dims - 
RESPONSE 

1:36 

Array 

[Cmn 3 Dims - 
SHTHKM 

1:70 1:19 1:36 

Array 

[Cmn 3 Dims - 
SHDEN 

1:36 

Array 

[Cmn 3 Dims - 
VWTHKM 

1:36 

Array 

[Cmn 3 Dims - 
VWDEN 

1:36 

Array 

[Cmn 3 Dims - 
STANDM 

1:36 

Array 

[Cmn 3 Dims - 
IENV ' 

1:36 

Scalar 

[Cmn 3 




Data Type 

Size 

Offset 

RefCnt 

REAL *4 

4 

0 

1 

REAL *4 

4 

4 

0 

INTEGER*2 

2 

8 

0 

INTEGERS 

2 

10 

3 

INTEGER*2 

2 

12 

3 

INTEGER*2 

2 

14 

3 

INTEGER*4 

4 

16 

0 

INTEGER*2 

2 

20 

3 

REAL*4 

4 

22 

0 

REALM 

4 

26 

1 

REALM 

4 

30 

0 

CHARACTER 

80 

34 

0 

INTEGERS 

2 

114 

0 

INTEGER*2 

72 

116 

0 

REALM 

191520 

188 

4 

REALM 

144 

191708 

4 

REALM 

144 

191852 

2 

REALM 

144 

191996 

4 

REALM 

144 

192140 

2 

REALM 

144 

192284 

0 

INTEGER*2 

2 

192428 

0 
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IDENS 

Scalar 

[Cron ] 


ADEN 

Scalar 

[Cmn ] 


ADAR 

Array 

[Cmn 3 Dims - 1:36 


SHTHK 

Scalar 

[Cmn 3 


ROOTFILE 

Scalar 

[Cmn 3 


BATCOM 

Scalar 

[Cmn 3 


IBOTHS 

Scalar 

[Cmn 3 


ITYPEIN 

Scalar 

[Cmn 3 


CONF 

Scalar 

[Cmn 3 


UNITS 

Scalar 

[Cmn 3 



INTEGER*2 

2 

192430 

4 

REALM 

4 

192432 

4 

REAL*4 

144 

192436 

4 

REALM 

4 

192580 

6 

CHARACTER 

40 

192584 

6 

REALM 

4 

192624 

0 

INTEGER*2 

2 

192628 

3 

INTEGER*2 

2 

192630 

2 

CHARACTER 

12 

192632 

4 

CHARACTER 

12 

192644 

3 


Local Stackframe size: 470 
Local Symbols: 178 


0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

SUBROUTINE RPINPUT 
C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C PSINPUT writes the program header to the screen and reads in the 
C summary ouput filename. It also determines the spacecraft exposure 
C time and operating altitude. 

C 

C 

C 

C note: for variables contained in the common block refer to the main 
C listing for definition 

C 

C Variable list 
C 

C answer = character string representing user input 

C Psfile = output filenanme 

C 
C 
C 

INCLUDE 'COMMONRP.BLK' 

C 

CHARACTER*20 BUMTTM 
CHARACTER*80 ANSWER 
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0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 


C 

C 

c 

C Write header to screen 
C 

WRITE C 6,10 ) 

10 FORMAT (/IX, ' **************************** ,/lX,3X, 

1 ’Space Debris SURFace' ,/lX,9X, ’R_PLOT5’ 

2 /lX,5X,’Ver. 1.6 8/23/92’ ,/lX,5X, ’FOR BUMPERIIvl.3’ ,/lX, 

3 i***************************'^ 

C 

C Read in output filename, set default to R_PLOT5.RS 
C 

15 WRITE ( 6,20 ) 

20 FORMAT ( /IX, 'OUTPUT FILENAME (CR*R_PLOT5 . RS> ’ ,$) 

READ C 5,30 )RSFILE 
30 FORMAT (A) 

C 

IF ( RSFILE(1:1).EQ. ' ’ ) RSFILE*'R_PLOT5.RS' 

C 

C Open rsfile 
C 

C !!!! PUT CREATORS XCEL' OR ’MSWD’ IN OPEN STATEMENTS ON MAC 
C 

OPEN ( UNIT=10 , FILE=RSFILE , STATUS- ' NEW’ , IOSTAT=IER , 

* CREATOR* ’ XCEL ' ,ERR*40,RECL*256 ) 

C 

GO TO 70 
C 

C Error control 
C 

40 IF C IER.EQ.2013 ) THEN 
WRITE ( 6,50 ) 

50 FORMAT ( /IX, ’FILE ALREADY EXISTS OK TO OVERWRITE (CR-YES,$>') 
READ C 5,30 ) ANSWER 
C 

IF C ANSWER(1:1).EQ. ’Y’ .OR. ANSWER(1:1).EQ. ' ' ) THEN 
OPEN ( UNIT-10, FILE-RSFILE, STATUS*’ UNKNOWN \IOSTAT-IER, 

1 ERR-40) 

REWIND 10 
ELSE 

GO TO 15 
END IF 
ELSE 

WRITE ( 6,60 ) 

60 FORMAT (/IX, ’UNABLE TO OPEN FILE ’ ) 

GO TO 15 
END IF 
C 

70 CONTINUE 
C 
C 

WRITE ( 10,75 ) 
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0599 75 FORMAT (/IX, '♦♦♦************************' ,//lX,3X, 

0600 1 ' R_PLOT5 ' , 

0601 2 /lX,5X,'Ver. 1.6 8/23/92’ , /IX, 5X, 'FOR BUMPERIIvl.3' ,/lX, 

05Q2 3 **************************** '//) 

0603 C 

0604 C 

0605 RETURN 

0606 END 


Symbol Table for: RPINPUT 

The following symbols were defined but NOT referenced: 


Symbol Name 
Other Information 

Class 

Data Type 

Size 

Offset 

RefCnt 

ADAR 

Array 

REALM 

144 

192436 

0 

[Cmn 3 Dins - 1:36 

ADEN 

Scalar 

REALM 

4 

192432 

0 

[Cmn ] 
BATCOM 

Scalar 

REALM 

4 

192624 

0 

[Cmn 3 
BINC 

Scalar 

REALM 

4 

0 

0 

[Cmn 3 
BUMTTM 

Scalar 

CHARACTER 

20 


0 

CONF 

Scalar 

CHARACTER 

12 

192632 

0 

[Cmn 3 
DIAM 

Scalar 

REALM 

4 

4 

0 

[Cmn ] 
IBATCOM 

Scalar 

INTEGER*2 

2 


0 

I BOTH S 

Scalar 

INTEGERS 

2 

192628 

0 

[Cmn 3 
IOENS 

Scalar 

INTEGER*2 

2 

192430 

0 

[Cmn 3 
IENV 

Scalar 

INTEGER*2 

2 

192428 

0 

[Cmn 3 
IT 

Scalar 

INTEGER*2 

2 

8 

0 

[Cmn 3 
ITYPE 

Scalar 

INTEGER*2 

2 

10 

0 

[Cmn 3 
ITYPEIN 

Scalar 

INTEGER*2 

2 

192630 

0 

[Cmn 3 
NB 

Scalar 

INTEGER*2 

2 

12 

0 

[Cmn 3 
NC 

Scalar 

INTEGER*2 

2 

14 

0 

[Cmn 3 
NT 

Scalar 

INTEGERM 

4 

16 

0 

[Cmn 3 
NV 

Scalar 

INTEGER*2 

2 

20 

0 

[Cmn 3 
PID 

Scalar 

INTEGER*2 

2 

114 

0 


[Cmn ] 
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PIDS 


Array 

[Cmn 3 Dims - 
RANGE 

1:36 

Scalar 

[Cmn ] 
RESPONSE 


Array 

[Cmn 3 Dims - 
ROOTFILE 

1:70 1:19 1:36 

Scalar 

[Cmn 3 
SHDEN 


Array 

[Cmn 3 Dims - 
SHTHK 

1:36 

Scalar 

[Cmn 3 
SHTHKM 


Array 

[Cmn 3 Dims - 
STANDM 

1:36 

Array 

[Cmn 3 Dims - 
UNITS 

1:36 

Scalar 

[Cmn 3 
VINC 


Scalar 

[Cmn 3 
VR 


Scalar 

[Cmn 3 
VWDEN 


Array 

[Cmn 3 Dims - 
VWTHK 

1:36 

Scalar 

VWTHKM 

[Cmn 3 Dims - 

1:36 

Array 

Alphabetic List: 


Symbol Name 


Class 

Other Information 





ADAR 


Array 

[Cmn 3 Dims - 
ADEN 

1:36 

Scalar 

[Cmn 3 
ANSWER 


Scalar 

BATCOM 


Scalar 

[Cmn 3 
BINC 


Scalar 

[Cmn 3 
BUMTTM 


Scalar 

CONF 


Scalar 

[Cmn 3 
DIAM 


Scalar 

[Cmn 3 
IBATCOM 


Scalar 

IBOTHS 


Scalar 

[Cmn 3 
IDENS 


Scalar 

[Cmn 3 
IENV 


Scalar 

[Cmn 3 




INTEGER*2 

72 

116 

0 

REALM 

4 

30 

0 

REALM 

191520 

188 

0 

CHARACTER 

40 

192584 

0 

REALM 

144 

191852 

0 

REALM 

4 

192580 

0 

REALM 

144 

191708 

0 

REALM 

144 

192284 

0 

CHARACTER 

12 

192644 

0 

REALM 

4 

26 

0 

REALM 

4 

22 

0 

REALM 

144 

192140 

0 

REALM 

4 


0 

REALM 

144 

191996 

0 

Data Type 

Size 

Offset 

RefCnt 

REALM 

144 

192436 

0 

REALM 

4 

192432 

0 

CHARACTER 

80 

27 

3 

REALM 

4 

192624 

0 

REALM 

4 

0 

0 

CHARACTER 

20 


0 

CHARACTER 

12 

192632 

0 

REALM 

4 

4 

0 

INTEGERS 

2 


0 

INTEGER*2 

2 

192628 

0 

INTEGER*2 

2 

192430 

0 

INTEGER*2 

2 

192428 

0 
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IER 


Scalar 

ISHLDS 

36 


Parameter 

IT 


Scalar 

[Cmn 3 
ITYPE 


Scalar 

[Cmn 3 
ITYPEIN 


Scalar 

[Cmn 3 
NB 


Scalar 

[Cmn 3 
NC 


Scalar 

[Cmn 3 
NT 


Scalar 

[Cmn 3 
NV 


Scalar 

[Cmn ] 
PID 


Scalar 

[Cmn ] 
PIDS 


Array 

[Cmn ] Dims 
RANGE 

- 1:36 

Scalar 

[Cmn ] 
RESPONSE 


Array 

[Cmn ] Dims 
ROOTFILE 

- 1:70 1:19 1:36 

Scalar 

[Cmn 3 
RSFILE 


Scalar 

[Cmn 3 
SHDEN 


Array 

[Cmn 3 Dims 
SHTHK 

- 1:36 

Scalar 

[Cmn 3 
SHTHKM 


Array 

[Cmn 3 Dims 
STANDM 

- 1:36 

Array 

[Cmn 3 Dims 
UNITS 

- 1:36 

Scalar 

[Cmn 3 
VINC 


Scalar 

[Cmn 3 
VR 


Scalar 

[Cmn 3 
VWDEN 


Array 

[Cmn 3 Dims 
VWTHK 

- 1:36 

Scalar 

VWTHKM 


Array 

[Cmn 3 Dims 
_$CMNBASES 

- 1:36 

Cmn Hndls 

Stack Frame 

Information: 


Temporaries 

List: 



INTEGERS 

4 

107 

3 

INTEGER*4 



8 - 

INTEGERS 

2 

8 

0 

INTEGER*2 

2 

10 

0 

INTEGER*2 

2 

192630 

0 

INTEGER* 2 

2 

12 

0 

INTEGER*2 

2 

14 

0 

INTEGER*4 

4 

16 

0 

INTEGER*2 

2 

20 

0 

INTEGER*2 

2 

114 

0 

INTEGER*2 

72 

116 

0 

REAL*4 

4 

30 

0 

REAL*4 

191520 

188 

0 

CHARACTER 

40 

192584 

0 

CHARACTER 

80 

34 

5 

REAL*4 

144 

191852 

0 

REAL*4 

4 

192580 

0 

REAL*4 

144 

191708 

0 

REAL*4 

144 

192284 

0 

CHARACTER 

12 

192644 

0 

REAL*4 

4 

26 

0 

REAL*4 

4 

22 

0 

REAL*4 

144 

192140 

0 

REAL*4 

4 


0 

REAL *4 

144 

191996 

0 



111 

1 
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Symbol Name 
Other Information 

Class 

Data Type 

Size 


Offset 

RefCnt 

{Work Area} 




24 

0 


_STLB0 

Scalar 

L0GICAL*1 


1 

24 

6 

_STLB1 

Scalar 

L0GICAL*1 


1 

25 

2 

_$TLB2 

Scalar 

L0GICAL*1 


1 

26 

2 

Variable List: 







Symbol Name 
Other Information 

Class 

Data Type 

Size 


Offset 

RefCnt 

ANSWER 

Scalar 

CHARACTER 


80 

27 

3 

IER 

Scalar 

INTEGERS 


4 

107 

3 

_$CMNBASES 

Cmn Hndls 




111 

1 

Variables in Blank Common: 

Size: 

192656 





Symbol Name 
Other Information 

Class 

Data Type 

Size 


Offset 

RefCnt 


BINC 

Scalar 

REAL*4 

4 

0 

0 

[Cmn 3 
DIAM 

Scalar 

REAL*4 

4 

4 

0 

[Cmn 3 
IT 

Scalar 

INTEGER*2 

2 

8 

0 

[Cmn 3 
ITYPE 

Scalar 

INTEGER*2 

2 

10 

0 

[Cmn ] 
NB 

Scalar 

INTEGER*2 

2 

12 

0 

[Cmn 3 
NC 

Scalar 

INTEGER*2 

2 

14 

0 

[Cmn 3 
NT 

Scalar 

INTEGERM 

4 

16 

0 

[Cmn 3 
NV 

Scalar 

INTEGER*2 

2 

20 

0 

[Cmn 3 
VR 

Scalar 

REAL*4 

4 

22 

0 

[Cmn 3 
VINC 

Scalar 

REAL*4 

4 

26 

0 

[Cmn 3 
RANGE 

Scalar 

REAL*4 

4 

30 

0 

[Cmn 3 
RSFILE 

Scalar 

CHARACTER 

80 

34 

5 

[Cmn 3 
PID 

Scalar 

INTEGER*2 

2 

114 

0 

[Cmn 3 
PIDS 

[Cmn 3 Dims - 1:36 

Array 

INTEGER*2 

72 

116 

0 
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RESPONSE 

Array 

[Cmn ] Dims - 

1:70 1:19 1:36 

SHTHKM 

Array 

[Cmn ] Dims - 

1:36 

SHDEN 

Array 

[Cmn ] Dims - 

1:36 

VWTHKM 

Array 

[Cmn ] Dims - 

1:36 

VWDEN 

Array 

[Cmn ] Dims - 

1:36 

STANDM 

Array 

[Cmn ] Dims - 

1:36 

IENV 

Scalar 

[Cmn ] 
IDENS 

Scalar 

[Cmn ] 
ADEN 

Scalar 

[Cmn ] 
ADAR 

Array 

[Cmn ] Dims - 

1:36 

SHTHK 

Scalar 

[Cmn ] 
ROOTFILE 

Scalar 

[Cmn ] 
BATCOM 

Scalar 

[Cmn ] 
IBOTHS 

Scalar 

[Cmn ] 
ITYPEIN 

Scalar 

[Cmn ] 
CONF 

Scalar 

[Cmn ] 
UNITS 

Scalar 

[Cmn ] 

Local Stackframe size: 116 

Local Symbols 

: 58 

0607 

0608 C 

0609 C 

0610 

SUBROUTINE DIRLIST 

0611 

CHARACTER*80 LINE 

0612 

0PEN(UNIT=17 , FILE= ' DIRECTORY 

0613 

REWIND 17 

0614 5 

READ(17,10,ERR=20) LINE 

0615 

WRITEC6.il) LINE 

0616 

GOTO 5 

0617 20 

REWIND 17 

0618 

CL0SE(UNIT=17 , STATUS- ' KEEP ’ ) 

0619 10 

FORMAT ( A80) 

0620 11 

FORMAT ( 1X.A80) 


REAL*4 

191520 

188 

0 

REAL*4 

144 

191708 

0 

REAL*4 

144 

191852 

0 

REAL*4 

144 

191996 

0 

REAL *4 

144 

192140 

0 

REAL*4 

144 

192284 

0 

INTEGER*2 

2 

192428 

0 

INTEGER*2 

2 

192430 

0 

REAL*4 

4 

192432 

0 

REAL *4 

144 

192436 

0 

REAL*4 

4 

192580 

0 

CHARACTER 

40 

192584 

0 

REAL*4 

4 

192624 

0 

INTEGER*2 

2 

192628 

0 

INTEGER*2 

2 

192630 

0 

CHARACTER 

12 

192632 

0 

CHARACTER 

12 

192644 

0 


.LIST' .STATUS-’OLD’ .ERR-30) 
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0621 30 RETURN 

0622 END 


Symbol Table for: DIRLIST 







Alphabetic List: 
Symbol Name 
Other Information 

Class 

Data Type 

Size 


Offset 

RefCnt 

LINE 

Scalar 

CHARACTER 


80 

24 

2 

Stack Frame Information: 







Temporaries List: 
Symbol Name 
Other Information 

Class 

Data Type 

Size 


Offset 

RefCnt 

{Work Area} 




24 

0 


Variable List: 
Symbol Name 
Other Information 

Class 

Data Type 

Size 


Offset 

RefCnt 

LINE 

Scalar 

CHARACTER 


80 

24 

2 

Local Stackframe size: 104 
Local Symbols: 8 







Global Symbol Table 
Symbol Name 

Class 

Result Type 

Size 


Other Information 

Blank Common 
DIRLIST 

MACII_R_plot5_16$main 

RESREAD 

RP5TEXT 

RPINPUT 

Blank Cmn 
Proc Sub 
Main Prgm 
Proc Sub 
Proc Sub 
Proc Sub 


192656 




0 serious errors detected. 

0 warning messages generated. 
754 lines compiled. 
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Appendix D 


Limitations 


These are the limits in version 3-0 of the Language Systems FORTRAN Compiler: 


31 

255 

5100 


409 


-5500 


7 

3200 

32 

50 

32 

512 

20 

20 

1500 

32767 

32767 

32767 

2147483647 

2147483647 

341 

32767 

2147483647 


significant characters in a symbolic name (ANSI 77 allows 6) 
characters in each source code line (ANSI 77 allows 72) 

characters in a statement (counting all continuation lines, bui not 
counting comment lines) 

global symbols (program, subprogram and common block names) 
in one compile 

local symbols (including all symbolic names, statement labels, 
subprogram and function references and compiler- generated 
temporaries) 

dimensions in a single array 

combined array dimensions in a program module 

levels of nested DO loops and nested implied DO loops 

nesting depth for block IF statements 

arguments in a statement function definition 

actual arguments per CALL reference 

nested function calls and subscript references 

nested repeat factors in a format 

characters in a packed format 

real constants in a program module 

complex constants in a program module 

character constants in a program module 

maximum record size for multiple items in an unformatted I/O 
statement 

maximum record size for formatted I/O 
fields in any structure 

maximum size of a STRUCTURE clement in an array of RECORDS 
maximum iterations for a DO loop 
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VAX EXTENSIONS THAT ARE ACCEPTED BUT NOT EXECUTED: 

CLOSE options 

DISPOSE/DISP= 'SUBMIT' 

' SUBMIT/DELETE ' 

DEFINEFILE 

DELETE 

DICTIONARY 

FIND 

INQUIRE options 

DEFAULTFILE 

KEYED 

ORGAN I ZATION= 'SEQUENTIAL' 

' RELATIVE ' 

' INDEXED ' 

RECORD TYPE= 'FIXED' 

' VARIABLE ' 

' STREAM_CR ' 

OPEN options 

ACCESS 3 'KEYED' 

ASSOCIATE VARIABLE 
BLOCKSIZE 
BUFFERCOUNT 
DEFAULTFILE 

DISPOSE/DISP= 'SUBMIT' 

' SUBMIT/DELETE ' 

EXTENDSIZE 

INITIALSIZE 

KEY 

NOSPANBLOCKS 

ORGANIZATION 3 'SEQUENTIAL' 

' RELATIVE ' 

' INDEXED ' 

RECORDTYPE 3 'FIXED' 

'VARIABLE ' 

' STREAM_CR ' 

' STREAM_LF ' 

SHARED 

USEROPEN 

READ/WRITE 

KEYID 

REWRITE 

UNLOCK 

VAX VMS FORTRAN FEATURES NOT SUPPORTED: 

PARAMETER statements of the form: PARAMETER p=c, [p=c] 

Octal constant notation: ‘77 or *77" (many other types of octal notation a I£ available) 

Extended Range DO loops 

Indexed files 

Radix-50 constants 

External BLOCK DATA subprograms 

EXTERNAL *v [, *v] 

TYPE FUNCTION NAME* V 
CALL a function 
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Appendix E * SO.SURFMACRO 



Summary Information 


Title: 

Space Debris Surfaces Macro 

Contract: 

NAS8-38856 

Version: 

vl .1 

Programmer: 

Norman Elfer, Ph.D. (504)-257-31 62 

Corporation: 

Martin Marietta Manned Space Systems 

Creation Date: 

Ver 1.1 - Feb. 14, 1992 




SUBROUTINES 


NAME 


Auto_open 


Auto close 


A surf 0.5 km/s 


Close Macro 


\ WTiTzmmmrmm 


BL PASTE 


RPLOTjOpen 


This series of EXCEL Macros were written in 
support of contract NAS8-38856 from 
NASA-Marshali Space Flight Center. 


PURPOSE 


Calls Opening Dialog Box. 
Ooens Function Macro Sheets. 


Deletes menu. 


Changes A surf output to 0.5 km/s increments 


Close SD Surf from menu bar. Continue EXCEL 


Function described and sets variable name. 


Pastes named arrays from Ballistic Limit to PNP 


Opens FORTRAN text file output and pastes to PNP 




Auto open 





Auto open 


-GET.DOCUMENT(I) 

-MESSAGED /SD Pull Down Menu added. Unhide macro to 
modify/) 

.CALCULATION^) 

-SHOFIT.MENUS(FALSE) 

-ADD.MENU(I.SD) 

«DIALOG.BOX(lntro_OialogJ)OX) 

-ALERT/Automatic Recalculation was turned off. See 
Options. If you don't want to recalculate when saving use 
Apple-period to stop re-caic/,2) 

-MESSAGE(O') 

-HIDEO 

«ERR0R(2,0PEN_SD_FUNCT10N MACRO) 
-OPEN?{ ,i SD_Function_Macros'\ l TRUE) 

.HIDEQ 

-ERROR(I) 

-Open_PNP_Template0 
RETURN 



Open Function Macro Sheets 


Calls a subroutine 
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-MESSAGE(1 /Please open the SO Funtion Macro Sheet. It General open box used 
will be hidden/) 

=OPEN?("SD_Function_Macros" l( TRUE) 

=HIDE() 

«MESSAGE{0, ) 

~Open_PNP_Template() Calls a subroutine 

RETURNO 


command 

Open BL Template 

open_template 
BL_ T emplate. Name 

-MESSAGE(1 /Please open a Ballistic Limit Macro 
TEMPLATE. Default is READ ONLY/) 

=OPEN?("BL Template-, .TRUE) 

-MESSAGED,) 

- IF(open_BLTemplate -FALSE, HALTQ,) 
-GET.DOCUM EfSTT(l) 

«FULL(TRUE) 

«FORMULAGOTO(I$A$1 .TRUE) 

-RETURNO 


General open box used if 

user wants to select 
a previously modified 
template. 




Save BL Template 


«MESSAGE(1/Save with new or old name. Apple-, to stop 
recalculation/) 

«SAVE.AS?<) 

«IF(B73 -FALSE, HALTQ.) 

MESSAGED 


Set BL Template 


-SET.VALUE(BL_Template.Name t GET.DOCUMEISTT(1)) 
RETURN 


Open PNP Template 


«MESSAGE(1 /Please open a PNP TEMPLATE. Default is General open box used if 
READONLY.") 

«OPEN?(-PNP/FLUX Template-,, TRUE) user wants to select 

- IF(B81 -FALSE,HALT(),) a previously modified 

»MESSAGE(Q,) template. 

PNP__ Template. Nam -GET.DOCUM ENT(1 ) 

-FULL(TRUE) 

-FORMULA.GOTO(!$A$1 ,TRUE) 

-RETURNO 



command 



Save PNP Template 


=MESSAGE(1/Save with new or old name. Apple-, to stop 
recalculation.*) 

»SAVE.AS?{) 

= IF(B92 «FALSE r HALT(),) 

-MESSAGED.) 


Set PNP Template 


-SET. VALUE(PNP_Tempiate. Name, GET.DOCUMENT(I)) 
RETURN 


Open Area Maker 


=MESSAGE(1 /Please open Area Maker Macro sheet/) 
=OPEN?("AREA_MAKER_MACRO’ , „TRUE) 

- IFfBlOO -FALSE, HALTO.) 



Genera] open box used if 
user wants to select 
a previously modified 
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-MESSAGED) 
-RUN(IAuto_Open, FALSE) 
RETURN 


A surf 0.5 km s 


• Use with A_SURF output. 

• Cut from 0.25 km/s and add 

to 0.5 km/s multiples 

• Start on first row (0.25 km/s) 


-ALERT(This will delete every other 0.25km/s A_Surf 
entry. You must have selected the 1st row to delete.\1) 
-IF(A AlerT-FALSEO.HALTO.) 


-ECHO(FALSE) 


-SELECT("R[+0]C2:R[+0]C20") 

-COPY0 

-SELECT("Rl+1]C2") 

-PASTE. SPECIAL(3,2,FALSE f FALSE) 
-SELECT("R[-1]") 

EDIT.DELETE(2) 


-FOR("counter",1 ,33,1 ) 

- SELECTrR[+lD 

- INSERT(2) 

- SELECT(*RC2:RC20") 

- FORMULA("0.5") 

- FILLRIGHT 


- SELECT("R[+1]C2:R[+1]C20") 

- COPY() 

- SELECT ("R[-1 ]C2:R[*1 ]C20") 

- PASTE.SPEC!AL(3.4.FALSE.FALSE) 


« COPY() 

- SELECT("R[-1]C2") 

- PASTE.SPECIAL(3,2,FALSE f FALSE) 

- SELECT ("R[+3]C2") 

- PASTE.SPECIAL(3,2,FALSE,FALSE) 

- SELECTrRf -2 


- EDIT.DELETE(2) 

- EDIT.DELETE(2) 
-NEXT() 
-ECHOfTRUE) 

RETURN 




Alert - You can change 
ur mind here . 


Speeds up Macro 


Adds first row to second 
and deletes first row 


Counter Loop 
Sets up to divide by2 


Divides odd cells by 2 


Adds to cells above and 
below 


Deletes cells 


End Loop 


-ALERTfThis will paste the ballistic limit surface on Alert • You can change 
the PN P/FLUX WS Template. The ballistic limit template 
must be active.", 1) 

-IF(BLP Alert -FALSE0.HALT0.) your mind here . 


BL PASTE 


-ECHO(FALSE) Speeds up Macro 

-CALCULATION (3 ) 


-SET.NAMErBL.name",GET.DOCUMENT(1 


-ACTIVATE(BLname) Copy and past* Haadar 

■SELECT(’r6c5:r1 6c6*) 

-COPY() 

-ACTIVATE(PNP_Template.Name) 


B-1 3 J I : iilVJi 


FI 
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PASTE.SPECIALI3.1 .FALSE.FALSE 


■ACTIVATE(BLname) 
■SELECT(*R6C1 0:R1 0C1 1 ’) 

-COPY() 

-ACTIVATE(PNP_Template.Name) 
■SELECT (*R1 7C21 *) 
■PASTE.SPECIAL(3,1 .FALSE.FALSE) 
■SELECT(*R1 5C21 *) 
-FORMULAfWorksheet calculation*) 
■SELECT (*R1 6C21 ’) 
FORMULAIBLname 


■ACTIVATE (BL n ame) 
-SELECT(*R21 C4:R52C22*) 
-COPY() 

■ACTIVATE(PNP_Template.Name) 
-SELECT(*R44C4*) 
PASTE.SPECIALI3.1 .FALSE.FA 


-CALCULATION^ ) 
■ECHO(TRUE) 




Copy and pasta Sample calc 


Copy and pasta BL data 



RPLOTjOpan RPLOT Open 


■WORKSPACE(„„TRUE, t ,„) 

-MESSAGE (TRUE.'Directions will ba listed HERE.*) 
-ALERTCSee MESSAGE box at lower left\2) 


■MESSAGE(TRUE.*Open the RPLOT Data File*) 
-OPEN?(„,2) 

■IF(B182 -FALSEO.HALTO.) 
-SET.NAMEf’RPLOT jiame*,GET.DOCUMENT(1 


x MESSAGE(TRUE.*Open the RPLOT SUMMARY Fie*) 
x OPEN?(„,2) 

x IF(B178 -FALSE().HALT(),) 
x SET.NAMECRSUM jiame*,GET.DOCUMENT(1 


■MESSAGE(TRUE,*Open the R-PLOT Ballistic Untit 
Template (BL-RPLOT)*) 
-OPEN7(*BL-RPLOr„TRUE„) 

-IF(B100 -FALSEO.HALTO.) 
-SET.NAMErBLname*.GET.DOCUMENrm 


-ACTIVATE(RPLOT.name) 

«SELECT(INPUTf Select first diameter on Response Table, 
(v -0.25 & obi - 0.)*,8, ‘Response Table*.,,)) 

-IF(B194 -FALSE.HALTO.) 

-SELECT(*RC:R[35]C[20]*) 

-COPY0 

-ACTIVATE(BLname) 

-SELECTf R1 7C3*) 

PASTE.SPECIALI3.1 .FALSE.FALSE) 


x ACTIVATE(RSUMjtame) 

-ACTIVATE(RPLOT.name) 

■SELECT(INPUT(‘Select up to 12 lines ot description to 
be paste to the Template.*, 8, 'Response 
Description*,*R1 Cl 3 :RC22‘..)) 

-IF(B203 -FALSE.HALTO.) 

-COPY0 

ACTIVATE(BLname) 


Sets up massage box. 


Open Responsa/R-Plot 


x Open Response Summary 
The summary file is not 
used due to current 
output structure. 


Open BL Template 


Tanster Response Data 


Transfer Response 
Summary 
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B 

-SELECT ("R2C5") 

-PASTE.SPECIAU3.1 .FALSE, FALSE) 

-SELECT(’R4C1 1") 

-FORMULAfRESPONSE OUTPUT FILES") 
x SELECT("R5C11") 
x FORMULA(RSUM.name) 

-SELECT("R6C1 1") 
-FORMULA(RPLOT.name) 

-ACTIVATE(RPLOT.name) 
-CLOSE (FALSE) 
x ACTIVATE(RSUM.name) 
x CLOSE(FALSE) 

«ECHO(TRUE) 

-MESSAGEfTRUE, 'Enter Name to Save Ballistic 
Limit in EXCEL Format.*) 

-SAVE .AS ?(RPLOT.name, 1 FALSE) 
-MESSAGE(FALSE) 

-IF(B221 -FALSEO.HALTO.) 
-SET.NAMEf’BL.name'.GET.DOCUMENTO)) 

-ALERT ("OK to do PNP Calculation? This will take a few 
minutes!\1) 

*IF(B225 -FALSEO.HALTO,) 

-MESSAGE (TRUE, "Open the PNP/FLUX WS TEMPLATE. 
Cancel to use current Template.") 

«OPEN?("PNP/FLUX WS TEMPLATE"„TRUE„) 

-IF(B228 -FALSE.ACTIVATE(PNPJemplate.Name),) 
«MESSAGE(TRUE,*Tran$fering data and calculating flux 
and PNP.") 

-SET.NAMErPNP.name",GET.DOCUMENT(1)> 

-ECHO(FALSE) 
-CALCULATIONS ) 

-ACTIVATE(BLname) 

-SELECT (*r2c5:r1 4c6*) 

-COPY() 

-ACTIVATE(PNP.name) 

-SE LECT(* R1 5C4*) 
-PASTE.SPECIALI3.1 .FALSE.FALSE) 

-ACTIVATE(BLname) 
-SELECT(*R4C1 1 :R1 0C1 1 ') 

-COPY() 

-ACTIVATE(PNP.name) 
-SELECT(*R15C19") 
*PASTE.SPECIAL!3.1 .FALSE.FALSE) 

-ACTIVATE(BLname) 

-SELECT(*R1 9C4:R50C22‘) 

-COPY() 

-ACTIVATE(PNP.name) 
-SELECT(*R44C4') 
-PASTE.SPECIALI3.1 .FALSE.FALSE) 

-CALCULATION(I) 

-ECHOfTRUE) 

-MESSAGE(FALSE) 

-RETURN!) 


C 


Record File Names 

CLOSE TEXT FILES 
1$AVE BALLISTIC LIMIT WS 

CONTINUE TO PNP? 

Cjpen PNP Template 



Copy & paste BL<_Header_2 


Copy and paste BL data 


Perform Caicuiations 
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E 

f_L 

am 


1 


DIALOGS 



mm 



wmmm 

wid4hiaHtext Iinit/resul4names 

n 





337 374 SD Surf for EXCEL 3.0 

4 

OK Button 

1 

242 

330 

64 CK 

5 

Text 

5 

26 

8 

Specs Debris Surfaces - SD SURF MACRO 

6 

Text 

5 

26 

31 

Ver 1.1 • Fab. 14, 1902 

mm 

Text 

5 

26 

50 


n 

Text 

5 

26 

69 

STRUCTURAL DAMAGE PREDICTION AND 

mm 

Text 

5 

26 

92 

ANALYSIS FOR HYPERVELOCTTY IMPACTS 

m 

Text 

5 

26 

115 

Contract NAS8-388S6 

m 

Text 

5 

26 

134 


m 

Text 

5 

26 

153 

NASA - Marshall Spaca Flight Canter 

m 

Text 

5 

26 

176 

Technical Monitors: 

m 

Text 

5 

56 

199 

Greg Olsen 

m 

Text 

5 

56 

222 

Jennifer Robinson 

m 

Text 

5 

56 

245 

Joel Witliamsen 

m 

Text 

5 

26 

272 

Martin Marietta Manned Space Systems 

m 

Text 

5 

26 

295 

Program Manager: 

m 

Text 

5 

56 

318 

Norman Elfer 


Text 

5 

56 

341 

(5041-257-31 62 
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o 

1 P 1 

1 o 


1 

MENUS 1 

n 


Command 

Macro 

n 

Status Bar Taxt 1 Halo 

n 

■ 

SD 




n 

■ 

Open R_Plot Output 

RPLOT.Open 


Opens R_PLOT output and Pastas to PNP/Rux Template 

1 

n 

■ 

Open BL Template 

Open_Bl_T emplatc 


Keeps track of file to use as Ballistic Limit template. 

mm 

■ 

Ballistic Limit to PNPJT 

BL_Pasts 


Copy Ballistic Limit from Active Template to PNP_Templat 

1 

mm 

cn 

I 

Open Area Maker Macro 

Open_Araa_M akar 


Area Maker opens A_SURF output & creates new geometries 

1 

an 

m 


Open PNP/Flux Template 

Open_PNP_T empla 

te 

Keeps track of which file to use as PNP/FLUX template. 

m 

■ 

Save PNP/Flux Template 

Save_PNP_T empl ate 

Keeps track of which file to use as PNP/FLUX template. 


Set PNP/Flux Template Set_PNP_Tempiate Keeps track of which file to use as PNP/FLUX template. 
Close SD Surf Macro close macro I Closes Macro and deletes SO menu. 








Appsndbc E • 80_SURF_M AC RO 


m 

V 

w 

X 

n 

n 

VARIABLES 

1 LIU LUCE 

TYPE 

n 

Auto_Closs 

-$B$48:$B$49 

0 

n 

Auto.Opan 

-$B$25:$B$38 

2 

n 

A_Alsrt 

-$A$111:$B$111 

0 

mm 

A surf O.S km s 

-$B$106:$BS141 

2 


BLnsms 

-*R_PLOT5.RS xP 

0 

n 

BLP.AIart 

-$A$144:$B$144 

0 

m 

BL_PASTE 

-$B$144:$B$173 

2 

m 

BL Tsmolats.Nsms 

H I 1 

0 

KH 

doss_Mscro 

-$B$43:*B$45 

0 

m 

counter 

-34 

0 

m 

Intro Dialoa box 


0 

m 

Op 0 n_Anm_Mak»r 

*$B$99:$B$104 

2 

m 

Op*n_BL_ Tamp lat» 

m$B$61:$B$68 

2 

m 

Op*n_PNP_ T»mplat 0 

s$B$80:$B$87 

2 

m 

OPEN SD FUNCTION MACHO 

HI I'UII 

2 

m 

PNP.nmmm 

m-PNP TEMPLATE" 

0 

ID 

PNP_T •mpi«t«.Nafn* 

«$B$84 

0 

m 

Print Araa 


0 

EEl 

RPLOTjwns 

-*R_P LOT5 JRST 

0 

m 

RPLOTjOpan 

-$B$17S:$B$253 

2 

ID 

RSUMjwma 

-"R0631 25M.tum* 

0 

eh 

S «vs_B L_T • mpl «ts 

-$B$71:$B$77 

2 

EO 

Savs_PNP_T smplats 

-$B$90:$B$96 

2 

[27 

SO 

-$P$3:ST$15 

0 

wn 

SD_Surf.nama 

-SBS26 

0 

ED 

Sat_BL_Tsmpl»ts 

-$B$76:$B$77 

2 

^11 

Sat PNP Temolats 

nn 'u 

2 
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Appendix F - AREA MAKER MACRO LISTING 



Title: 

Contract: 

Version: 

Programmer: 

Corporation: 

Creation Date : 



Summary Information 


Space Debris Surfaces-Area Maker Macro 

N AS8-38856 

vl.1 

Norman Elfer, Ph.D. (504)-257-3162 
Martin Marietta Manned Space Systems 
February 14, 1992 


This series of EXCEL Macros were written in 
support of contract NAS8-38856 from 
NASA-MarshaJI Space Right Center. 





COMMAND MACROS 


NAME 


Auto^open 


Auto close 


Set Template 


Template Open 


Template Save 


Clear Area Arra 


Rectangle 

Disk 

Cylinder 

Disk 

Cone 

Sphere 


PURPOSE 


Calls Opening Dialog Box and adds Pull Down Menus. 
Opens Area Template Worksheet 
Opens Function Macro Sheets. 


Removes Menus 


Identifies active document as the Area Template 


I Opens the Area Template 


Saves Template and Identifies it as the Area Template 


Clears Area Array & Descriptions on Template 


Creates Area Array and descriptions on Area 
Template. This is done by opening dialog boxes 
for user input and creating facets which are sent 
to Rotate and then to Area Matrix. 


AreaS_to_PNP Copies Area_array and Description_Array to 

PNP Template. 


A_Plot Manipulate I Open A_Plot text file and compresses for EXCEL 


Close_AreaS I Closes macro which will start auto close. 



Area Matrix 



Adds facets to area array on Area Template 


Rotates facet orientation 


Velocity^Dist Calculates probability distribution, f(v). Needs to be 

normalized. 


Area, Phi, Theta 
/Total Projected Area 


Phi , Thera, Pitch, 
Yaw /Phi, Theta 


velocity ; orbital inclination 
/ f(v) 



Auto open 

Auto open 

A__Maker_name 

-GET.DOCUMEhTT(1) 

-HIDEO 

-ADD.MENU(1, AreaS) 
-Reset_initial_values() 

-CALCULATION^) 

-SHORT.MENUS(FALSE) 

-DIALOG. BOX(INTRO_DlALOG_BOX) 
-SET.VALUEfA Template, 'Area Template*) 


Open Area Template 


Add menu 

Reset Dialog inital values 
Turn Calculation Oft 
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«ERROR(2JEMPLATE_OPEN) 
-ACTIVATE! A_T emplate) 
-ERROR(1) 

-FULL(TRUE) 

«FORMULA.GOTO(!$A$1 .TRUE) 
-RETURN!) 


Make sure Area Template 
is open 


60 

command 

TEMPLATE.OPEN 

Called by Autojopen Error 

61 


-MESSAGED 'Please open any AREA TEMPLATE. Default 
is READ ONLY.’) 

Genera/ open box used if 

m 


-ERROR(2) 

user wants to select 

m 

open^template 

-OPEN?(’Area Template’.JRUE) 

a previously modified 

m 

m 

in 


-MESSAGE(0.) 

-ERROR(I) 

- IF(open_template -FALSE,Alert1(),) 

template . 

m 

m 

m 

in 

A_TEMPLATE 

-GET.DOCUMENT(1) 

-FULL(TRUE) 

-FORMULA. GOTO(l$A$1 .TRUE) 
-RETURNO 



command 


command 


ITemplate Save 


-MESSAGEO.'Save with new or old name. Apple-, to 
stop recalculation.") 

-SAVE.AS?!) 

- IF(B74 -FALSE, HALT() t ) 

-MESSAGED) 

-S ET. VALUE! AJTemplate.GET.DOCU MENT(1 )) 
RETURN 


Set Template 


-SET.VALUE(A jOTplate,GET.DOCUMENT(1 )) 
RETURN 




command 


Close macro 


-ACTIVATE! A_Maker_name) 
-CLOSE!) 


Does not save changes . 


command 


RETURN 



lauto close 


command 


-DELETE.MENU(1 ."AreaS") 
X SAVEJVS(.O) 

-RETURN!) 


Does not save changes . 



-ACTIVATE(A_Maker_name) 
SELECKIDlaloq boxes default values 


F - 2 
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-COPY() 

«SELECT(!Dialog_boxes_lnitial_values) 
-PASTE .S P EC IAL(3, 1, FALSE ,FALS E) 
RETURN 


-ERROR(2,Alert2) 

«ACTIVATE(A_Template) 

-ERROR(I) 

-ECHCKFALSE) 

«SELECT(!Area_array) 

-FORMULA.FILL(O) 

-S ELECT ( !Area_Descrlptlon$) 
»CLEAR(3) 

•ECHO(TRUE) 

RETURN 



Clears Area array 
and descriptions 



Area.Rec 

Phi.Rec 

Theta.Rec 


I nn 

I nn 

I bb 

I nn 

[SEE 

I nn 

I nn 

I nn 

I nn 

I nn 

I nn 

I nn 


Number. Rec 


Description.Rec 

No. 

Geom 

LI 

L2 

L3 

Multiplier 

Pitch 

Yaw 

Lat. Start 
Lat. Rnish 
Incr. 

Long. Start 
Long. Finish 
Surf Area fm A 21 


Rectangle 


-ERROR(2 f Alert2) 

- ACTIVATE(A_Template) 
-ERROR(I) 

-FORMULA.GOTO(!Axes t TRUE) 
-DIALOG. BOX(Rectangle_Dlalog_box) 
«IF(B121 -FALSE.HALTO,) 
ECHOfFALS 


-Area_Multiplier.rec*Length.rec*Height.rec 

-Rotate(90 f 0,Pltch.rec f Yaw.rec) 

-Rotate(90,0,Pltch.rec,Yaw.rec) 

Area Matrix(Area.Rec.Phi.Rec.Theta.Rec) 


«COUNT(OFFSET(!Area_Descriptions f O,0 M 1)) 

-B128+1 


-Number.Rec 
Rectangle 
-Length. rec 
-Height. rec 

«Area_Multipller.rec 
-Pitch. rec 
-Yaw.rec 



Calculations 


Call Area Matrix 



Area.Rec 


«ACTIVATE(A_Maker_name) 

-SELECT(Description.Rec) 

-COPY() 

-ACTIVATE(A.Template) 

«SELECT(OFFSET((IArea_DescriptJons) l Number.Rec- 

1 . 0 . 1 . 1 )) 

-PASTE.SPECIAU3.1.FALSE.TRUE) 

-ECHO(TRUE) 

RETURN 



Description Paste 
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Area.dsk 
PhLdsk 
Theta, dsk 


Number, dsk 


Description.dsk 

No. 

Geom 

LI 

L2 

L3 

Multiplier 

Pitch 

Yaw 

Lat. Start 
Lat. Finish 
Incr. 

Long. Start 
Long. Finish 
Surf Area [m A 2] 


num.of.facets.cyl 


Disk 


-ERROR(2,Alert2) 

- ACTI VATE( A_T emplate) 

-ERROR{1) 

-FORMULAGOTOflAxes.TRUE) 

-DIALOG.BOX(Disk_Diaiog_box) 

-IF(B159 -FALSE.HALTO.) 

ECHOfFALSE) 


«Area_Multiplier.dsk # PI()*Radius.dak A 2 

«Rotate(90,0.Pitch.dsk.Yaw.dsk) 

-Rotate(90,0.Pitch.dsk.Yaw.dsk) 

Area Matrixf Area.dsk. Phi.dsk.Theta.dsk) 


-COUNT (OFFS ET(!Area_Descriptions. 0,0,, 1)) 
B166+1 


-Number.dsk 

Disk 

-Radius. dsk 


»Area_Multiplier.dsk 
-Pitch. dsk 
-Yaw. dsk 



Calculations 


Call Area Matrix 




Facet.Area.cyi 


Area.dsk 


-ACTIVATE(A_Maker_name) Description Paste 

-SELECT(Description.dsk) 

-COPY() 

«ACTIVATE(A_Template) 

-SELECT(OFFSET((!Area_Descriptions),Number.dsk- 

1 . 0 . 1 , 1 )) 

-PASTE.SPECIAU3.1 .FALSE.TRUE) 

-ECHO(TRUE) 

RETURNS 


Cylinder 


-ERROR(2,Alert2) 

. ACTIVATE(A_T emplate) 

-ERROR(I) 

-FORMULAGOTO(!Ax«,TRUE) 

-DIALOG. BOX(Cylinder_Dialog_Box) 

-IF(B197 -FALSE.HALTO.) 

ECHOfFALSE) 


-Area_Multlplier.cyl*PI()*radius.cyl*Length.cyl*(finish Calculations 
_angle.cyl-start_angle.cyl)/1 80 

~-(finish_angle.cyl-start_angle.cyl)/facet_angle.cyl 

-IF(OR(B201 <>INT(B201 ),B201 <0)) Error check on angles 

- ALERT(*Fmi«h_angla must be greater than 
Start.angle, and the difference evenly divisible by 
. Cylinder() 

-END.IF0 

-Area.cyl/num.of.facets.cyl 

FORfnM .num.of. facets. cvlj ) Loop thru each lac 


Loop thru each facet 
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pm 


Initial. Phi.cyl 

Initial. Theta. cyl 
Phi.cyl 

Theta.cyl 


| pm 
I pm 
I rm 
pm 
| BB| 
| pm | 
I pm I 
| rm | 
| pth I 
| pm I 
I pm | 
[ pm I 
pm | 
[ pm | 
[ pm | 
I pm | 
pm | 
pm | 
pm | 
pm | 
pm | 
Pm I 
pm | 


Number.cvl 


Description.cyl 

No. 

Geom 

LI 

L2 

L3 

Multiplier 

Pitch 

Yaw 

Lat Start 
Lat Finish 
Incr. 

Long. Start 
Long. Finish 
Surf Area rm A 21 



command 



Cone. Angie. rad 
Cone.Angie.deg 


Area, cone 


num.of . facets, cone 


- MOD(90+start_angle.cyi+(n- 
0.5)*facet_angle.cyl,360) 

- IF(B208>180,360-B208,(IF(B208<- 
1 80,360+B208,B208))) 

- IF(OR(AND(B208<0,B208>-180),B208>180) I -90,90) 

m 

Rotate( Initial. Phi. cyl, Initial. Theta. cyl, Pitch. cyl.Yaw. cyl) 

m 

Rotate( Initial. Phi. cyl.lnitial.Theta. cyl, Pitch.cyl.Yaw, cyl) 

- Area_Matrix(Facet.Area.cyl, Phi.cyl, Theta.cyl) Call Area_Matrix 

-NEXTQ 


-COUNT(OFFSET(!Area_DescriptJons,0,O f ,1)) 
B215+1 


Description.cyl 
-Number. cyl 
Cylinder 
-radius. cyl 
-Length.cyl 

-Area_Multiplier.cyl 

-Pitch. cyl 

-Yaw.cyl 

«start_angle.cyl 

-finish_.angle.cyl 

«facet_angle.cyl 


Area.cvl 


«ACTIVATE(A_Maker_name) 

-SELECT(Description.cyl) 

-COPY() 

«ACTIVATE(A_Template) 

-SELECT(OFFSET((!Area_Descriptions),Number.cyl- 

1 , 0 , 1 , 1 )) 

-PASTE. SPECIAL<3,1 .FALSE, TRUE) 

-ECHOfTRUE) 

RETURN 


Cone 


-ERROR(2,Alert2) 

- ACTIVATE(A_Template) 
-ERROR(I) 

-FORMULA GOTO(!Axes,TRUE) 
«DIALOG.BOX(Cone_dialog_box) 
«IF(B246 -FALSE, HALT(),) 
ECHOfFALS 


-ATAN((Radius_aft.cone-Radius_for.cone)/Length.cone) Calculations 

-Cone.Angle.rad*PI()/1 80 

-SORT ( Length. cone A 2+ ( ( Radius_aft. oone- 

Radius_for.cone) A 2)) 

-Area_Multiplier.cone*PI{)*(Radius_aft.cone+Radius_fo 
r.cone)*B251 # (Finish_angle.cone-Start_angle.cone)/1 80 
«(Finish_angle.cone* 

-IF(OR(B253olNT(B253),B253<0)) Error check on angles 

- ALERT( B Finish_angle must be greater than 
Start.angle, and the difference evenly divisible by 

- Cone() 

-END.IFO 
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Fac 9 t.Ar 0 a.cono 


Initial. Phi. con 9 

Initial. Theta, cone 
Phi. cone 


Theta, cnne 


Number.cone 


Description.cono 

No. 

Geom 

LI 

L2 

L3 

Multiplier 

Pitch 

Yaw 

Lat. Start 
Lat Finish 
Incr. 

Long. Start 
Long. Finish 
Surf Area fm A 21 


EE 

EE 

EE 


EE 

EE 

EE 

►M-l 



Radius. WS 
Area_Multiplier. WS 


-Area.cone/num. of. facets. cone 
-FOR(*n*,1,num.of.facets.cone,1) Loop thru each facet 

- MOD(90+Start_angle.cone+(n- Cons axis is Initially in 

0.5)*facet_angle.cone,360) 

- IF(B260>180,360-B260,(IF(B260<- nag. z direction and rotated 

1 80,360+ B260.B260))) 

. IF(C)R(AND(B260<0,B260>-180),B260>180),-90,90) to direction. 

m 

Rotate(lnitial.Phl.cone,lnitlal.Theta.cone,Pltch.cone,Yaw. . 
cona) 

Rotata(lnitlal.Phi.cona,lnltial.Theta.cone, Pitch. cone, Yaw. 
cona) 

- Area_Matrix(Facet.Area.cone,Phl.cone,Theta.cone) Call Area_Matrix 

-NEXTO ~ 


-COUNT(OFFSET(!Area_Descriptions,0.0„1)) 

B267+1 


Description.cono 

-Number.cone 

Cona 

-Radius.for.cone 

-Radius.aft.cone 

-Length.cone 

-Area.Multiplier.cone 

-Pitch. cona 

-Yaw.cone 

-Start_angla.cona 

-Finiah_angla.cona 

-facat_angla.cona 


Area.cone 


-ACTIVATE(A_Makar_name) 

-SELECT(Description.cone) 

-COPY() 

-ACTIVATE(A_Templata) 

-SELECT(OFFSET((!Area_Descriptions),Number.cone- 

1 . 0 , 1 , 1 )) 

-PASTE.SPECIAL(3,1 .FALSE.TRUE) 

-ECHO(TRUE) 

RETURN 


Whole Sphere 


-INPUT(*Enter the area of the sphere [m A 2] or a formula 

starting with an equal 

sign.M ."Sphere*,* -4*PI()*(Radius) A 2*„) 

-IF(B294 -FALSE.HALTO.) 

-SQRT (Area.WS/P l()/4) 

-INPUT(*Enter an area multiplier*, 1,*multiplier*,1„) 
-IF(B297 -FALSE.HALTO.) 

-ECHOfFALSE) 

-SET.VALUE(Area.WS,Area.WS*Area_Multlpller.WS) 
-FORMU LA. ARRAY(* -R_one_Sphere_areaS*Area.WS/4*. 
Whole_Sphere_areaS) 

-ACTIVATE(A_Maker_name) 

-SELECT(!Whole_Sphere_areaS) 

-COPY() 

ERROR(2.Alert2) 
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Number. WS 


Description. WS 
No. 

Geom 

LI 

L2 

L3 

Multiplier 

Pitch 

Yaw 

Lat. Start 
Lat. Finish 
Incr. 

Long. Start 
Long. Finish 
Surf Area fm A 21 


command 


Total, facets. Sph 


Total. Area. Sph 


-ACTIVATE(AJTemplate) 
-ERROR(I) 

« S E LECT( I Area_array) 
-PASTE.SPEC1AL(3.2.FALSE.FALSE1 


»COUNT(OFFSET(!Area_Descriptions,0,0 M 1)) 

-B310+1 


Description . WS 
-Number.WS 
Whole Sphere 
•Radlus.WS 


-Area.Multiplier.WS 




num.iat.facets. Sph 
num.long.facets. Sph 


Area.WS 


-ACTIVATE(A_Maker_name) 

-S ELECT ( Description. WS) 

«COPY() 

«ACTIVATE(A_Template) 

«SELECT(OFFSET((!Area_De$cifptions) t Number.WS- 

1 . 0 , 1 . 1 )) 

«PASTE.SPECIAL(3.1, FALSE, TRUE) 

«ECHO(TRUE) 

RETURN 


Sphere 


-ERROR(2,Alert2) 

• ACTIVATE(A_Template) 
-ERROR(I) 

-FORMULA.GOTOflAxesJRUE) 
-DIALOG.BOX(Sphere_Dialog_Box) 
-IF(B341 -FALSE, HALT(),) 
ECHO(FALSE) 


-(flnishJat.sph-start_Lat.sph)/facet_angle.sph 

-(finish_Long.sph-$tart_Long.sph)/facet_angle.sph 

»IF(OR(start_Lat.sph<-90 1 finish_lat.sph>90 t )) 

= ALERT(*Latitudes must be equal or between -90 and 
+90 degrees.", 2) 

- Sphere() 

-END.IFO 

«IF(OR(B345<>INT(B345),B344<>INT(B344),B345<0,B34^ 

< 0 )) 

- ALERTfFinish_angle must be greater than 
Start_angle, and the difference evenly divisible by 

- SphereQ 
-END.IFO 
-B344 # B345 

-ALERT(*There are "&B354&* facets. Do you wish to 
continue?*, 1) 

«1F(B355 -FALSE, HALT(), "ok") 

-4*PI()*( Radius. sph) A 2 



Calculations 


Error check on latitudes 


Error check on start 


and finish angles. 


Too tong to continue? 
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LatitudB.Area.sph 


Area.Sph 
Facet. Area.Sph 


Initial. Phi. Sph 
Initial. Theta. Sph 
Phi.Sph 

Theta. Sph 


cm I 

ml 
cm | 
cm | 
m l 
m l 
mi 
| BE I 

m l 
1 cm | 

m l 
cm | 
cm | 
| cm | 
| BE I 
| cm ! 

[ mi 

cm 
| cm | 
| cm | 
I cm 
| cm 

| cm 

BE 


Number. Soh 


Description.Sph 

No. 

Geom 

LI 

L2 

L3 

Multiplier 

Pitch 

Yaw 

Lat. Start 
Lat. Finish 
Incr. 

Long. Start 
Long. Finish 
Surf Area fm A 21 


Loop thru latitude facets. 
Loop thru long, facets. 



-4*PI() # (Radiua.spb) A 2*(COS((90- 
finish_lat.sph)*PI()/180)-COS((90- 
start_Lat.sph)*Pt()/1 80)) 
«Latitude.Area.sph*(flnish_Long.sph- 
•Area.Sph/num.long.facets.Sph/num.lat.facets.Sph 
-FOR("IM .num.Jat.facets.Sph.l ) 

- (i-1 )*num.long.faceta.Sph+j 

. M ESS AGE (1, 'Working on ‘&B363&* facet of 

•4Total.facets.Sph) 

- starO^t.sph+(i^.5)*facet_angle.sph+90 

« -{8tart_Long.sph+(j-0.5Pacet_angle.sph) 

m 

Rotate(lnitial.Phl.Sph,lnitial.Theta.Sph,Pltch.sph,Yaw.sph 


Rotata(lnitlal.Phi.Sph,lnitial.Theta.Sph,Pltch.sph,Yaw.sph 
> Area_Matrix(Facet.Area.Sph, Phi.Sph, Theta.Sph) Call Area_Matrix 

- NEXT() 

-NEXT() 

MESSAGED,) 


-COUNT(OFFSET(!Area_Descriptions,0,0,.1)) 

B373+1 


Description.Sph 

-Number.Sph 

Sphere 

-Radius.sph 


-Area_Multiplier.sph 
-Pitch. sph 
-Yaw.sph 
-startj.at.sph 
-finlshjat.sph 
-facet.angle.sph 
-start J.ong. sph 
-finish.Long.sph 

Area.Sph 


-ACTIVATE(A_Maker_name) 

-SELECT(Description.Sph) 

-COPY() 

-ACTIVATE(A_Template) 

-SELECT (OFF S ET(( !Area_Descriptlons) ,N umber. Sph- 

1 . 0 . 1 . 1 )) 

-PASTE.SPECIAU3.1 .FALSE.TRUE) 

-ECHO(TRUE) 

RETURN 



A Plot Manioulation 


•ALERT (’Compresses A_SURF/A_PLOT output Area 
Array from 0.25 to 0.5 km/s Increments.*. 1) 

Use with A^SURF output. 

-IF(B400 -FALSE, HALT().) 

Cut from .25 km/s and 

-MESSAGE(1 .‘Open the A_SURF/A_PLOT output file.*) 

add to 0.5 km/s bins 

-OPEN?(„TRUE,2„„) 

-MESSAGE(O) 

-REFTEXT(INPUT(*Click on the row with the obliquities 
(above the first line of the array.*, 8.*Area Array - 0.25 
to 0.5 km/s increments*,,,)) 

-IFIB405 -FALSE. HALTO.) 

Start on Row with Obliquity 
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-ECHO(FALSE) 
SELECTfTEXTREF(B405 


*SELECT("R[+1]C2:R[+1]C20") 

-COPY() 

-SELECT("R[+1]C2") 

-PASTE. SPEC IAL(3,2,FALSE,FALSE) 
»SELECT("R[-1]") 

EDIT.DELETB2 


-FOR("n\1,32) 

« SELECT("R[+1]") 
- INSERT(2 


- SELECT ("RC2:RC20") 

- FORMULA("0.5") 

- FILLRIGHTO 

- SELECT("R[+1]C2:R[+1]C20") 

- COPY() 

- SELECT(*R[-1]C2:R[-1]C20") 

- PASTE.SPECIAU3AFALSE, FALSE 


- COPY() 

- SELECT("R[-1]C2") 

- PASTE.SPECIAL(3,ZFALSE,FALSE) 

- SELECT("R[+3]C2") 

- PASTE.SPECIAU3.2.FALSE, FALSE) 

- SELECT("R[-2]") 

- EDIT.DELETE(2) 

- EDIT.DELETE(2) 

NEXT 


-SELECT(TEXTREF(B405)) 

«SELECT(“R[1]C2:R[32]C20") 

-ALERTfPlease select area array from 0.5 to 16 km/s 
and paste to PNP Template. Copy any model or range 
information desired.", 2) 

«ECHO(TRUE) 

RETURN 



First row to second 


counter 
insert blanks 


multiply by 1/2 


\Add above 


\Add below 


delete extra rows 


finished 




Areas to PNP 


-ACTIVATE(A_Template) 

-CALCULATE.DOCUMENT() 

«SELECT(!Eff_Area_Array) 

-COPY() 

-MESS AGE(1, "Please, open the PNP Template.") 
«OPEN?() 

-GET.DOCUMENTd 


-ACTIVATE(PNP.name.AtoP) 
-SELECT(! AREA JT ABLE) 

-PASTE. SPECIAL(3.1 .FALSE. FALSE) 


«ACTlVATE(A_Template) 

-SELECT( I Areas.and.Ubels) 

-COPY() 

-ACTIVATE(PNP.name.AtoP) 

-S ELECT (OFFSET ( ! ARE A_T ABLE, 0,20, 1,1)) 
-PASTE.SPECIALd ,1 ,FALSE,FALSE) 


«FORMULA.GOTO("GeometryJnfo") 
-SELECT("RC(1 ] :R(3]C[3]") 

-CLEAR{3) 

»SELECT("R[4]C[-2]:R[1 5]C[2]") 
CLEAR(3) 



Paste 

Effective Area Array 


Copy and paste 
Descriptions with headers 


Geometry information 
at top of PNP Template 
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— 1 

A 

B 

c 

rra 

CEE 

cm 

cm 

cm 


-SELECT('Rl*4]C[2]*) 
-FORMULA(’Created by AreaS Macro’) 
-SELECT (*R[1 ]C*) 

-FORMULA(’Detail* naxt to Araa Table') 
-RETURN!) 
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E 

F 

G 

6 

command 

Alertl 

Called by 


Alertl ^answer 

=ALERT("An AREA TEMPLATE needs to be opened. OK to 


Template_open 

7 


repeat, or CANCEL to continue without template. \1) 



8 


=IF(Alertl_answer =TRUE(),TEMPLATE_OPEN(),) 



El 


=RETURN() 



KEI 

m 


KB 

command 

Alert2 

Called by error on 
Activate] A_temp! ate) 



=ALERTfAREA TEMPLATE cannot be found. Please use OPEN-, 

1 3 


SAVE- or SET TEMPLATE and repeat command.\3) 



ED 


= HALT() 



KB 


= RETURN() 



IB 

KB 


m 

function 

| Area Matrix 

This macro accepts an 

KB 

Are a. AM 

=ARGUMENT("Area.AM\1 ,F23) 


area and its normal to 

FTI 

Phi.AM 

=ARGUMENT(-Phi.AM\1 f F24) 


fill in the area matrix 

eh 

Theta. AM 

=ARGUMENT("Theta.AM*,1 ,F25) 


on Area Template 

FE1 


Input 



EB 

Area.AM 


1 

[meter A 2] 

m 

Phi.AM 


90 

[degrees] 

FB 

Theta. AM 

I -45.00000002 

[deqreesl 


Phi. rad. AM 

= Phi.AM # PI()/1 80 

=:IF(F26<0,ALERT("Negattve angle phi from zenith in 


Convert to radians 



Area_Matrix Macro", 2),) 





=IF(F26<0,HALT(),) 

-IF(ABS(F25)>180,ALERT(’Theta > 180 in Area_Matrix 





Macro\2),) 





=IF(ABS(F25)>1 80,HALT(),) 




Theta.rad.AM 

=Theta.AM*PI()/1 80 




Phi. deg. AM 

=Phi.AM 




Theta.deg.AM 

^Theta.AM 





Parameters 



Q R 

VINC.AM 


0.5 

[km/s] 


AINC.AM 


5 

[deg.] A for Angle as in 


Orb. Vef.AM 


8 

[km/s I 



ACTIVATE(A_Template) 





-FOR("Velocity.AM\0.5,2*Orb.Vel.AM,VINC.AM) 


Start loop through 


Velocity. AM 

= Velocity.AM 


the threat velocities 



= FOR("threat.quad.AM VI ,1 ,2) 


Loop once for Port 


Threat.quad.AM 

= threat.quad.AM 


& once Starboard 


Threat. Ang.rad. AM 

* 1hreat.quad.AM*ACO$(Velocity.AM/2/Orb.Vel.AM) 




Obliquity, rad. AM 

= IF(ABS(Theta.AM-Threat.Ang.rad.AM*180/PI())<90) 

= ACOS{COS(Theta.rad.AM- 


Facing Threat? 



Threat. Ang. rad. AM) # SIN( Phi. rad. AM)) 




Obliquity.deg.AM 

= Obliquity. rad. AM*180/PI() 




Proj.Area.AM 

= Area.AM*COS(Obliquity.rad.AM) 




Sum.Proj.Area.AM 

= Sum.Proj,Area.AM+F47 




Vi nd ex. AM 

= INT(Velocity.AM/VINC.AM) 


Index numbers on the 


Aindex.AM 

* INT(Obliquity.deg.AM/AINC.AM)+1 


area_array template 


Del. Obi. AM 

= MOD(Obliquity.deq. AM, AINC.AM) 




Area. Obi. minus. AM 

= Proj. Area. AM*(AINC.AM-Del.Obl.AM)/AINC. AM/2 


Fractions at each obi. 


Area.Obl.plus.AM 

= Proi.Area.AM*Del.Obl.AM/AINC.AM/2 


/2 for left & right 


A rray. Obi. minus. AM 

= IN DEX(!Area_array,Vindex. AM, Aindex.AM) 


Starting values 


Array. Obi. plus. AM 

a INDEX(IArea array.Vindex.AM.Aindex.AM+l) 




New. A. Obi. minus. AM 

= Array.Obl.minus.AM+Area.Obl.minus.AM 


Final Values 


New. A. Obi. plus. AM 

= Array.Obl. plus. AM+Area.Obl. plus. AM 
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. FORMULA(New.A.Ob!.minus.AM,OFFSET((IArea_array), 

Vindex.AM-1 .Aindex.AM-1 ,1,1)) 
x FORMULA(New.A.Obl.minu».AM) 

« FORMULA(N 0 w.A.Obl.plus.AM,OFFSET((!Ar#a_array), 

Vindex.AM-1 ,Aindex.AM,1 ,1 )) 
x FORMULA(NewAObl.minus.AM) 


I array with new values. 


in 


an 


vel.VD 

inc.VD 

vel.VD 

inc.VD 


- END.iFQ 

- NEXT{) 

-NEXT() 

RETURNfSum. Proi .Area. AM) 


next starboard threats 
Next threat velocity 


function 

Rotate 


Phi. Rot 

-ARGUMENTCPhl.RoT.I ,F72) 


Theta.Rot 

-ARGUMENT rTh*ta. Rot*, 1.F73) 


Pitch.Rot 

-ARGUMENT(*Pitch.Rot*,1 ,F74) 


Yaw.Rot 

-ARGUMENT(*Yaw.Rot*,1 ,F75) 


PhLRot 


90 

Theta.Rot 


0 

Pitch.Rot 


0 

Yaw.Rot 

-IF(AND(Pltch.Rot -0, Yaw.Rot -0)) 

- SET.VALUE(Nnalphi.rot,Phl.Rot) 

- SET.VALUE(flr*a) theta .rot,Theta.Rot) 
-ELSE() 

45 

y.rot 

- COS(Phi.Rot*PI()/1 80) 


x.rot 

- -COS(Theta.Rot*PI()/180)*SIN(Phl.Rot*PI()/180) 


m sign.rot 

- IF(OR(Theta.Rot<0,Theta.Rot>180),-1,1) 


newx.rot 

m 



TRUNC(x.rot*COS(Pitch.Rot*PI()/180)+y.rot*SIN(Pitch.Rot*PI( 

)/180),8) 

newy.rot 

- TRUNC(y.rot*COS(Pitch.Rot*PI()/1 80)- 

x.rot*SIN(Pltch.Rot*PI()/180),8) 


m newPhLrot 

- 180/PI()*ACOS(newy.rot) 


newTheta.rot 

. IF(newPhi.rot -0,0,aign.rot*180/PI()*ACOS(- 

nawx.rot/SIN(nawPhi.rot*PI()/180))) 


m x2.rot 

- -SIN(Phl.Rot*PI()/180)*SIN(Theta.Rot*PI()/180) 


m y2.rot 

- -newx.rot 


newx2.rot 

m 



TRUNC(x2.rot*COS(Yaw.Rot*PI()/180)*y2.rot*SIN(Yaw.Rot*PI( 

)/180),8) 

newy2.rot 

i 

- TRUNC(y2.rot*COS(Yaw.Rot*PI()/1 80)- 
x2,rot*SIN(Yaw.Rot*PI()/180),9) 


_ sign2.rot 

- IF(newx2.rot<0,1 ,-1 ) 


: m final Phi. rot 

• n«wPhi.rot 


finalTheta.rot 

. IF(finalphi.rot -0, 0,»lgn2.rot*180/PI() * 

ACOS(nawy2.rot/SIN(linalphi.r.ot*PI()/180))) 
-ENO.IFO 
-RESULT(64) 

-RETURN(F92:F931 



Bypass calculations 
if no rotation. 


Pitch rotation 


yaw rotation 


V«4odty Dtot 


-ARQUMENTCv«i. VOM ,F1 01 ) 
-ARGUMENTCInaVOM ,F1 02) 
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n 

E 

F 

G 

rra 

AVD 

2.5 



8.VD 

-IF(lnc.VD<60 t 0.5,IF(lnc.VD<80,0.5-0.01*(inc.VD*60),0.3)) 


nm 


-IF(inc.VD<1 00,0.01 25, 0.0125+0.00125*(inc.yD-1 00)) 


CTTi 

D.VD 

-1.3-(0.01*(inc.VD-30)) 


nm 

EVD 

*0.55+(0.005*(lnc.VD-30)) 


■ 

F.VD 

-IF(inc.VD<50,0.3+(0.0008*((lnc.VD-50) A 2)),IF(inc.VD<80.0.3- 


iTTI 


0.01 *(lnc.VD-50),0)) 



avD 

»IF(inc.VD<60,1 8.7,IF(lnc.VD<80,1 8.7+0.283*((lnc. VD- 


EKTl 


60) A 3),250)) 


nm 

H.VD 

-1 -(0.0000757*((lnc.VD-60) A 2)) 


Em 

vo.VD 

»IF(lnc.VD<60,7.25+(0,015*(inc.VD-30)),7.7) 


Em 

M.VD 

■2*veI.VD*vo.VD-(vel.VD A 2) 


Em 

fv2.VD 

■G.VD*EXP(-(({vel.VD-A.VD*vo.VD)/(B.VD*vo.VD)) A 2)) 


Em 

fv3.VD 

-F.VD*EXP(-{{(vel.VD-D.VD*vo.VD)/(E.VD # vo.VD)) A 2)) 


Lui 

M.VD 

»H.VD # C.VD*(4*vel.VD*vo.VD-(vel.VD A 2)) 


EKE 

fv.VD 

■MAX(0,fv1.VD*(fv2.VD+fv3.VD)+fv4.VD) 


sm 


■RETURN(F117) 
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DIALOGS 


wide high text 


init JreiDefault val 


Rectangle Dialog box 


62 

1 264 



150 

334 

105 RECTANGLE 

71 

48 

CK 

71 

64 

Caned 

10 


Length [m] 

74 


Area Multiplier 

38 


Height [m] 

1 10 


Pitch [±90°] 

39 


Yaw f±180*l 


Edit box - nu 





Edit box - nuj 8 97 

8 116 

8 264 



8 

97 

7 

63 

Length.rec 

1 

8 

97 

35 

64 

Height.rec 

1 

8 

118 

69 

43 

Area Multiplfer.rec 

1 

8 

264 

7 

50 

Pitch. rec 

0 

8 

265 

36 

50 

Yaw.rec 


Disk Dialog box 


62 

150 

334 

1 05 DISK 


1 

264 

71 

48 

CK 



184 

71 

64 

Cancel 




Area Multiplier 

Radius [m] 

Pitch I±90T 
Yaw f±180 


Radius.dsk 

Area Multiplier.dsk 

Pitch.dsk 

Yaw.dsk 




Sphere Dialog Box 





Edit box ■ nul 


135 CT CRE 
CK 

Cancel 


Area Multiplier 
Radius [m] 
facet angle 
start Long. 

finish Long, 
start Lat. 
finish Lat. 

Pitch [±90 # ] 
Yaw [±180 


Radius.sph 
facet angle.sph 
Area Multiplier.sph 
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8 

256 

7 

50 

start Latsph 

•90 

8 

256 

35 

50 

finish latsph 

90 

8 

256 

70 

50 

start Long.sph 

0 

8 

256 

98 

50 

finish Long.sph 

360 

8 

405 

.7 

50 

Pitch.sph 

0 

8 

406 

36 

50 

Yaw.soh 

0 

Cone dialog box 


25 

125 

476 

1 28 Cone (no dosure) 


1 

404 

96 

48 

CK 


2 

324 

96 

64 

Cancel 


5 

4 

100 


Area Multiplier 


5 

8 

10 


Radius alt 


5 

8 

37 


Radius fore 


5 

8 

66 


Length [m] 


5 

171 

1 1 


start angle 


5 

171 

38 


finish angle 


5 

171 

71 


facet angle 


5 

178 

100 


Units: [m] & [deg] 


5 

318 

10 


Pitch [±90°] 


5 

319 

39 


Yaw r±1801 


8 

95 

7 

63 

Radius aft cone 

1 

8 

95 

35 

63 

Radius for.cone 

1 

8 

95 

64 

63 

Length. cone 

1 

8 

112 

96 

43 

Area Multipller.cone 

1 

8 

256 

7 

50 

Start angle. cone 

•90 

8 

256 

35 

50 

Finish angle.cone 

270 

8 

261 

67 

45 

facet angle.cone 

5 

8 

405 

7 

50 

Pitch.cone 

0 

8 

406 

36 

50 

Yaw.cone 

0 




Cylinder Dial 





25 

125 

476 

1 1 0 CYLINDER (no closure) 

1 

405 

71 

46 

CK 

2 

325 

71 

64 

Cancel 


4 

72 

Area Multiplier 

8 

10 

Radius [m] 

8 

37 

Length [m] 

171 

1 1 

start angla 

171 

38 

finish angla 

171 

71 

facet angle 

318 

10 

Pitch [±90*] 

319 

39 

Yaw f±180*1 


Edit box • nu 



7 63 

radius.cyl 

1 

1 

5 63 

Length. cyl 

1 

1 

8 43 

Area Multiplier.cyl 

1 

1 
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— 1 

1 

tt 

“ TT 

TT 

M I 

“n 1 o 1 P 

Q 

eh 


8 

256 

7 

50 

start angle.cyl -90 


-90 

cm 


8 

256 

35 

50 

finish angle.cyl 270 


270 

hoi 


8 

261 

67 

45 

facst angla.cyl 5 


5 

cm 


8 

405 

7 

50 

Pltch.cyl 0 


0 

cm 


8 

406 

36 

50 

Yaw.cvl 0 


0 

cm 









II»M 









cm 





337 

392 SD Surf tor EXCEL 3.0 



cm 

OK Button 

1 

242 

342 

64 

CK 



cm 

Text 

5 

26 

10 


Space Debris Surfaces - AREA MAKER 


109 

Text 

5 

26 

33 


Var 1.1 - Feb. 14, 1992 



ns 

Text 

5 

26 

56 




- 

cm 

Text 

5 

26 

79 


STRUCTURAL DAMAGE PREDICTION AND 


cm 

Text 

5 

26 

102 


ANALYSIS FOR HYPERVELOCITY IMPACTS 


cm 

Text 

5 

26 

125 


Contract NAS8-38856 



cm 

Text 

5 

26 

148 




• 

cm 


5 

26 

171 


NASA • Marshall Space Flight Center 


cm 


5 

26 

194 


Technical Monitors: 



cm 


5 

56 

217 


Greg Olsen 



cm 


5 

56 

240 


Jennifer Robinson 



119 


5 

56 

263 


Joel WHIiamsen 



cm 

Text 

5 

26 

290 


Martin Mariana Manned Space Systems 


cm 

Text 

5 

26 

313 


Program Manager: 



cm 

Text 

5 

56 

336 


Norman Elfer 



cm 

Text 

5 

56 

359 


(5041-257-3162 
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rz 

S 

T 


W 

1 X 1 

bn 

MENUS 1 

n 


Command 

1 Macro 1 Key 1 Status Bar Text 

Help 

mm 

AreaS 

AreaS 




KM 


Clear Arrays 

Clear_Area_Array Clears Area_Array & Description^ 

on Area Template 

5 


Rectangle 

Rectangle 

Adds a Rectangle to Area_Array 


6 


Disk 

Disk 

Adds a Disk to Area_Array 


7 


Cone 

Cone 

Adds a Cone to Area_Array 




Cylinder 

Cylinder 

Adds a Cylinder to Area_Array 




Sphere 

Sphere 

Adds a Sphere to Area.Array 




Whole Sphere 

Whole_$phere 

Adds whole sphere to Area_Array. 

Faster than Sphere. 


Open Template 

TEMPLATEjOPEN 

Opens a file to be used as the Area Template 



Save Template 

Template_Save 

Saves & identifies new name as the Area Template 



Set Template 

Set_Template 

Identifies active document as the Area Template 



AreaS to PNP 

AreaS_to_PNP 

Transfers Effective Area to PNP Template. 


Open A_Plot fit A_PLOT_Manipula Opens A_Surf Output Use 0.5 km/s increments. 


Close AreaS 

Close macro 

Closes Area Maker Macro. 
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Z 


Oblquitp 


mririririnnnnininrTimririrT' 


Formula « SIN((AJ5 + 2.5)*PI()/180) A 2-(SIN((AJ5-2.5)*PI()/180) A 2) 

0 S 10 IS 20 25 30 35 40 43 50 55 00 35 70 75 


0.03 0.044 0.030 0.037 0.075 0.032 0.033 0.037 0.033 0.032 0.075 0.037 0.033 0.044 

-R -R. -R -R -R -R -R. -R -R. -R -R -R. -R. -R. 
«R_ona_Sphare_araaS*Araa.WS/4 




•0 33 00 

0.03 0.015 0 002 

■R *R -R 
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VARIALBLE LISTING 

REFEFENCE 

TYPE 

A.VD 

-$F$104 

0 

AINC.AM 

«$F$36 

0 

Aindex.AM 

«$F$50 

0 

Alertl 

«$F$6:$F$9 

2 

Alert1_answer 

-$F$7 

0 

Alert2 

-$F$13«F$15 

0 

Area.AM 

«$F$23 

0 

Area, cone 

«$B$252 

0 

Area.cyl 

*$B$200 

0 

Area.dsk 

-$B$1 62 

0 

Area.Obl.minus.AM 

-$F$52 

0 

Area.Obi.plus.AM 

m$F$53 

0 

Area.Rec 

«$B$1 24 

0 

Area.Sph 

«$B$350 

0 

Area.WS 

-$B$294 

0 

AreaS 

-ST$3:$X$19 

0 

AreaS_to_PNP 

-$B$442^B$467 

2 

Area_Matrix 

-$F$18«F$65 

1 

Area_Multiplier.cone 

-SPS77 

0 

Area_Multiplier.cyl 

«$P$98 

0 

Area_Multiplier.dsk 

-$P$33 

0 

Area_Multipfier.rec 

-$P$19 

0 

Area_Multiplier.sph 

-SPS52 

0 

Area_Multiplier.WS 

-$B$297 

0 

Array. Obi. minus. AM 

s$F$S4 

0 

Array. Obl.plus.AM 

-$F$5S 

0 

Auto_Clos# 

-$8$90*B$93 

2 

Auto_Open 

-$B$44*B$58 

2 

A__Maker_name 

«$B$45 

0 

A_P LOT.Mani pulatlon 

-$B$400«B$438 

2 

A Template 

-*B$67 

0 

B.VD 


0 


C.VD 

Clear_Area_Array 

Cone 

Cone.Angle.rad 

Cone_dialog_box 

Cylinder 

Cylinder Dialog Box 


-$F$106 

-$B$241:$B$291 

-$B$248 

-$J$61:$P$82 

-$B$192:$B$239 


D.VD 

-$F$107 

Del.Obl.AM 

«$F$51 

Description.cone 

-$B$270:$B$283 

Description.cyl 

-$B$218«B$231 

Description.dsk 

«$B$169^B$182 

Description. Rec 

-$8$131:$B$144 

Description.Sph 

*$B$376:$B$389 

Description. WS 

«$B$313:$B$326 

Dia!og_boxes_default_values 

-$Q$175Q$103 

Dialoq boxes initial values 

«$P$17:$P$103 
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Disk 

-$B$154:$B$190 

Disk DIaloq box 

-$J$25:$P$35 l 

E.VD 

-SFS108 

F.VD 

-$F$109 

Facet.Area.cono 

-SBS258 

Facet.Area.cyl 

-SBS206 

Facet Area.Sph 

«$B$360 

facet_angl#.cona 

a$P$80 

facat_angle.cyl 

-$p$101 

facet_angle.sph 

-$P*51 

final phi.rot 

-SFS92 

finaitheta.rot 

-SFS93 

Finish_angie.cone 

-SPS79 

finish_angle.cyl 

-$P$100 

finish Jat.sph 

-SPS54 

finishJ.ong.sph 

-SPS56 

hr. VO 

-SFS117 

fvl.VO 

a$F$113 

fv2.VD 

«$F$114 

fv3.VD 

-SFS115 

fv4.V0 

-$FS116 

glvd 

-SFS110 

KVD 

-$F$111 

Heiqht.rec 

-SPS1S 

i 

m3 

inc.VD 

-$F$102 

Initial. Phi. cons 

-SB$261 

Initial. Phi.cyl 

-$B$209 

lnitiai.Phi.Sph 

-$B$365 

lnitial.Thata.cona 

«$B$262 

lnitlal.Thata.cyl 

-SBS210 

lnitial.Thata.Sph 

•4BS366 

INTRO DIALOG BOX 

-$J$106:$P$123 


Latltude.Area.sph 

-$B$358 

Length. cone 

-$P$78 

Length. cyi 

-$P$97 

Lsnoth.rec 

-SPS17 

n 

m2 

NewJLObijninusJ^M 

-SFS56 

NewJLObi.piuaAM 

-SFS57 

newPhi.rot 

m$F$a 5 

newTheta.rot 

-SF$86 

newx.rot 

4FJ83 

newx2.rot 

-$F$89 

newv.rot 

-SFS84 
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Ek'i'i 

cm 

cm 

cm 

cm 

cm 

cm 

cm 


cm 



cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

Cm 

cm 

Cm 


cm ! 
Cm 
Cm ; 
tin 

Cm 

CEE 
CEE I 
Cm | 

cm 

CEE 

cm; 
cm 
Cm 
cm 
cm | 
CEE I 
CEE 

cm 

cmi 

CEE 

cm 


140| 


cm 
cm I 
Cm 
cm | 
tra l 


AX 

I AY I 

newy2.rot 

-$F$90 

num.laLfac 0 ts.Sph 

■$B$344 

num Jong, facats. S pb 

-$B$345 

num.of.facots.cone 

-$B$253 

num.of.lacets.cyl 

«$B$201 

Number. cone 

-$B$268 

Number.cyl 

-SBS216 

Number.dsk 

-$B$167 

Number.Rec 

-$B$129 

Number.Sph 

-IBS374 

Number.WS 

-SBS311 

obnguity.d 0 g.AM 

-SFS46 

Obliquity.rad.AM 

- SFS4S 

open.template 

-$B$63 

orb.vai.AM 

-SFS37 

Orbital_Velocitv kms 

-#REF! 

PN.AM 

-$F$24 

Phi.cone 

-$B$263 

Phi.cyl 

-SBS211 

Phi.deg.AM 

-SFS32 

Phi.dsk 

-4BS163 

Phi.rad.AM 

-$F$26 

Phi.Rec 

-SBS125 

Phi.Rot 

-SF$72 

Phi.Sph 

-$B$367 

Pitch.cone 

-$P$81 

Pitch. cyl 

-SPS102 

Pitch.dsk 

-SPS34 

Pitch.rec 

a$P$20 

Pitch.Rot 

-SFS74 

Pitch. sph 

-$P$ 57 

PNP.name.AtoP 

-$B$448 

Print_Area 

«SA$1 5C$467,$E$65 

Proi.Aroa.AM 

-SFS47 

radius.cyl 

-$P$96 

Radius.dsk 

-$P$32 

Radius.sph 

-SPS50 

Radus.WS 

-$B$296 

Radius_aft.cone 

-$P$74 

Radius_for.cone 

-SPS75 

Recordl 

-$! B$4SS 

Recorder 

-$8$45S:$8$16384 

Rectangle 

-$8S116:$BS152 

Rectang!e_Diaiog_box 

-$J$94Q$21 

Reset Jnitial_vaJues 

-$B$9S:$B$102 

Rotate 

-$F$67SF$96 

R one Sphere areas 

-$AA$63AS$6 

Sat_Tamplata 

-$8$81:$8$82 

sign.rot 

-$F$82 

sign2.rot 

-SFS91 

Sphere 

-$8$337:$B$397 

Sphere_Oiaiog_Box 

-$J$383P$58 

Start.angle.cone 

-$P$78 

start.angle.cyl 

-$P$09 

start Lat.soh 

-SPS53 
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AX 

1 AY 

A Z 


start_Long.sph 

■$P$S5 

0 

era 

Sum.Proi.Area.AM 


0 

era 

TEMPLATE_OPEN 

-$B$60^B$70 


era 

Tamplate_Savs 

-$B$735B$78 


era 

ThetaJVM 

-$F$25 


era 

Theta, cons 

-SBS264 


era 

Theta.cyl 

-$B$212 


era 

Theta.deg.AM 

-$FS33 


era 

Theta.dsk 

-$B$164 

■ 

era 

ThstajadJVM 

-SFS31 

-■ 

era 

ThattLRac 

-$B$126 


era 

Theta. Rot 

-SFS73 


era 

Theta.Sph 

-*8*368 


era 

ThrMtAng.rad.AM 

-SFS43 


era 

thraat.quad.AM 

■3 


era 

Total. facets.S oh 

-S8S35A 


era 

val.VD 

-8FS101 

0 

era 

Velocity .AM 

-16.5 

0 

era 

Valocity_Dlst 

-*F*99:*F*118 

1 

era 

VINC-AM 

-*F*35 

0 

era 

Vlndax.AM 

-SFS49 

0 

era 

vo.VO 

-SFS112 

0 

era 

Whole_Sphsrs 

-$BS293:SBS334 


era 

Whole Sphere areas 

-$AA$7:$AS$7 


era 

x.rot 

-$F$81 


era 

x2.rot 

-*FS87 

IBH 

era 

y.rot 

-$F$80 


era 

y2.rot 

-*F*88 


era 

Yawxone 

-$P$82 


era 

Vaw.cyl 

-*P*103 


era 

Yaw.dtk 

-*P$35 


era 

Yaw.rec 

-$P$21 


187 

Yaw.Rot 

-*F$75 


era 

Yaw.soh 
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Appendix G-SD FUNCTION MACROS USTING 



Summary Information 


Title: Space Debris Function Macros 

Contract: NAS8-38856 

Version: vl .1 

Programmer: Norman Elfer, Ph.D. (504)-257-3162 

Corporation: Martin Marietta Manned Space Systems 

Creation Date: Feb. 14, 1992 




This series of EXCEL Macros were 
written in support of a contract with 
NASA*Marshall Space Flight Center. 



SUBROUTINES 


NAME 


Debris Flux 


INPUT 


Diameter 


diameter, year, inclination, altitude, 
growth rate, flux factor. Solar radio flux 


OUTPUT 


Flux [impacts/year/m A 2, 


Flux [impacts/year/m A 2] 



Diameter, A Full Debris Flux Calc.) 


Flux, time [days], Area [m A 2] 


Veloaty_Dist (velocity, inclination 


Flux [impacts/year/m A 2] 



Flux fraction 



El 

function 

Meteoroid Flux 

EH 

El 

EH 

Met^dmm^cm.MFIx 
Meteoroid Flux 

■ARGUMENT(*Met_diam_cm.MRx", 1 , B28) 

1 

«10 A (-6.2'3.66*LOG10(Met_diem_cm.MFIx)) 

-RETURN(B29) 

Returns Meteoroid Flux 


EH 
EH 
| EH 
EU 
Id 
Id 


dmm.SDF 

Year.SDF 

ind.SDF 


Debris Flux 

-ARGUMENT(*diam.SDF*. 1 ,B41) 


*ARGUMENT(*Year.SDF\1,B42) 


-ARGUMENTnnd.SDP.1 .B43) 
«ARGUMENT(*h.aitSDP.1 .844) 
-ARGUMENT(*p.growth.SDP.1.B45) 
-ARGU MENTfk. Rux. Factor. SDP.1.B46) 
-ARGUMENTfS.SOP. 1 ,B47) 



1995 


28.5 


From MSFC Memo ES44-( 193-90) 

Dr. B. J. Anderson 

Proposed Revisions to SSP30425 

9/19/90 
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hjJlSDF 




p. growth.SDF 
fcFlux.Factor.SDF 

S.SDF 

q. SDF 

Solar_Fluy_Year 

S.cafc.SDF 


ED 

ed 

Ied 

I ED 
I ED 
ED 
I ED 
ID 
ED 
|ED 
ED 
ED 
BED 


386 altitude in km £ 2000 km 

0.05 annual growth rate 

4 flux factor after computer analysis 


■IF(Year.SDF< -2010,0.02,0.04) Am in Bumperfl , year-1 in solar flux 

calculation 

«IF(Yoar.SDF<2008.6 ,Year.SDF-1 , 1 996+MOD(Yaar.SDF-1 997, 1 1 )) 11 year cycle beyond 2006 

»IF(S.SOF>1,S.SDF,VLOOKUP(Sol«r_FkJX_Y&ar,SOLAR_FLUX.DAT,3) Solar radio flux 10*4 Jy 


XLSDF 

HdSDF 

phijone.SDF (h,S) 
phi.SDF(h,S) 


I ED 
ED 
ED 
I ED 


-VUOOKUP(lnd.SOF.Phi_table,2) 

■SQRT(10*(EXP(-<(LOG10(diam.SDF)-0.78)* 2/0.637*2)))) 
«1O*(h.altSOF/20O-S.calc.SDF/14O-1.5) 

■phi_on«.SDF/(phi_one.SDF+ 1 ) 

-1 .22*10*(-5)*dtam.SDF*(-2.5) 

■8.1*10*10*(diam.SDF+700)*(-6) 

^ 1 •fq.SOF)^ Yoar.SDF- 1 988) 

-1 +p.growth.SDP(Year.SDF-1 988) 

-k.Flux.Factor.SDPHd.SDPphi.SDF*Xl.SDP(F_one'g_on«+F_two'g_t 

wo) 

■RETURN/ B64) 


Column 3 in array is Nominal 
Inclination factor lor 30* 



function 

QUICKFLUX 

cSam.QDF 

HdQDF 

Fjone.QDF 

Fjwo.QDF 

Flux.QDF 

■ARGUMENTfdiam.QDP, 1 ,B71 ) 
-ARGUMENTCAny_Compte»_Rux_Cate.QDP. 1 ,C76) 

0.70618021 

«SQRT( 1 0*(EXP(-{(LOG 1 0(diam.QDF)-0.78)*2/0.637*2)))) 

-1 .22*10*(-5)*dam.QDF*(-2.5) 

■8.1*10*10*(di«m.QDF+700)*(-6) 

-k.Fkjx.Factor.SDPHd.SDPphi.SDPXi.SDP(F_ooe.QDPg_or»+F_lw 

o.QDPg_two) 

■RETURN(Flux.QDF) 


mxsinsmm 


diameter dependent portions 
of the debris flux equation. 

Use of the second term 
from a complete flux calculation 
forces a recalc if anything 
changes. 


ED 

ED 

ED 
| ED 

Ied 

□ 

Ied 

Ied 

Ied 


Flux.PNP 

timejdays.PNP 

Area.PNP 


ED 

ED 

ED 

ED 

ED 

ED 

ED 

ED 

EH 


vo I.VD 
incVD 


PNP 

-ARGUMENTfFlux.PNPM ,B83) 
-ARGUMENTCtime^days.PNP-, 1 ,B84) 
-ARGUMENT("Are«.PNP*, 1 ,B85) 

2.05552E-05 

365 

1 

-EXP(-AreaPNP*tkne_days.PNP/365*Flux.PNP) 

-RETURN(B87) 





Velocity Dist 


-ARGUMENTCvel. VD". 1 ,B95) 
-ARGUMENtnnc.VO", 1 ,B96) 


■IFflnc. VD<60 ,0.5, IF(inc.VO<00, 0.5-0.01 *(inc.VD-60), 0.3)) 
IFfinc. VD<1 00.0.0 1 25,0.01 25+0.001 25*(inc. VD- 1 00)) 
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nz 


B 

C 

m 

D.VD 

« 1 .3-{0.01 *(ir»c. VD-30)) 


KEQ 

E.VD 

«0.55+(0. 005 *(tnc. VD-30)) 



F.VD 

»IF(inc.VD<50.0.3+(0.0008*((inc.VD-50) A 2)),IF(inc.VD<80.0.3- 


103 


0.01 *(inc.VD-50),0)) 



G.VD 

»IF(inc.VD<60,18.7,IF(inc.VD<80,18.7+0.289*((inc.VD-60)*3),250)) 


104 




H'H 

H.VD 

- 1 -{0.0000757* ((Inc. VD-60) A 2)) 


E2 

vo.VD 

«IF(inc.VD<60 t 7.25+(0.015*(inc.VD-30)),7.7) 


CEE 

fvl.VD 

-rvol.VD*vo.VD-<vel.VD A 2) 


CEE 

fvZVD 

«G.VD*EXP(-(((ve<.VD-A.VD*vo.VD)/(B.VD*vo.VD)) A 2)) 


gm 

fv3MD 

»F.VD*EXP(-(((vel.VD-D.VD # vo.VD)/(E.VD*vo.VD)) A 2)) 


rm 

MMD 

■H.VD*C.VD*(4*vel.VD*vo.VD-<vel.VD A 2)) 


DD 

fv.VD 

-MAX(0,fv1 VD*(f\^ VD+fv3.VDHv4.VD) 


ns 


-RETURN(BIII) 
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i r 

F 

1 

Spact Debris 


2 

Phi Lookup Table 


n 

Indination * 

PHI(i) 

D 

25 

0.9 

K3 

26 

0.905 

n 

27 

0.91 

■a 

28 

0.912 

8 

28.5 

0.9135 

8 

29 

0.915 


30 

0.92 


31 

0.922 


32 

0.927 


33 

0.93 


34 

0.935 


35 

0.94 


36 

0.945 


37 

0.95 


38 

0.952 

19 

39 

0.957 

20 

40 

0.96 

21 

41 

0.967 

22 

42 

0.972 

23 

43 

0.977 

ED 

44 

0.982 

Q 

45 

0.99 

E3 

46 

0.995 

Q 

47 

1 

ED 

48 

1.005 

ED 

49 

1.01 

FI 

50 

1.02 

ED 

51 

1.025 

FI 

52 

1.03 

FI 

53 

1.04 

34 

54 

1.045 

35 

55 

1.05 

ED 

56 

1.06 

ED 

57 

1.065 

ED 

58 

1.075 

ED 

59 

1.08 

ED 

60 

1.09 

ED 

61 

1.1 

Lil 

62 

1.115 


43 


63 


1.13 
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E 

1 F 

101 

121 

1.165 

102 

122 

1.155 

103 

123 

1.14 

104 

124 

1.125 

105 

125 

1.11 
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function 



dl 


tjbumper.cm. WPL 
t_rear_wall.cm. WPL 
SpacinQ.cm.WPL 
Velodty.kmps. WPL 




Density_Proj. WPL [g/cc]. 
Denshy^RW. WPL [g/cc]. 
Density_BUMP. WPL [g/cc]. 
Material Strength, ksi. WPL [ksi 


V normal. WPL 




JSC_WHIPPLE 


-ARGUMENTrt_bumper.cm.WPLM ,19) 
-ARGUMENTn_rear_wail.cm.WPLM ,110) 
-ARGUMENT(-Spadng.cm.WPLM,l1 1) 
-ARGU ME NT ('Velocity, kmpt. WPL", 1,112) 
-ARGUMENT("Obliquity .deg.WPL", 1,113) 


0.127 



ECHO INPUT 




»Vek>aty.kmps.WPL*COS(Obliquity.deg.WPL*PI()/180) 


«3.918*t_rear_wail.cm.WPL A (2/3)*Density_Proj.WPL A (- 

1/3)*Dentity_BUMP.WPL A (-1/9) # V_normal!wPL A (- 

2/3)*Spadng.cm.WPL A (1/3)*(Material_Strength.ksi.WPL/70) A 

1/3) 


-(((t_ r ear_wail.cm.WPL*{Matenal_Strength.ksi.WPL/40) A 0.5 
+t_bumpe7cm.WPL)/( 1 24a # Density_Proj.WPL A 0.5"COS(Obli 
qui ty .deg . WPL # PI(V 1 80))) A ( 1 8/1 9)*( 1 .75-V_normal. WPL/4)) 

-((1 .071 *t_rBar_waJl.cm.WPL*(2/3)*Den*ity_Proj.WPL*(- 
1/3)*Density_BUMP.WPL A (- 

1 /9)*Spadng.cm. WPL A (1/3)*(Matenal_Strength.kai.WPL/70) A 
1/3))*(V_normal.WPiy4-0.75)) 

• 121+120 


-((t_rear_waJJ.cm.WPL*(Material_Strength.ksi.WPL/40) A 0.5+ 

t_bumper.cm.WPL)/{0.6*(COS(Obilquity.deg.WPL*PI(yi80)) A 

(5/3)*Density_Proj.WPL A 0.5*Velodty.kmps.WPL A (2/3))) A (18/1 


IF(V normal. WPL< «3,I23,IF(V normal. WPL<7,I22J 19 


RETURN(I24 


2 7 hAATERIAL PROPERTIES 
2.7 


CALCULATED VALUES 



Function 



Areal_Dens_Bump.gpsqcm.MS 


34 1 1 rear wall.cm.MS 


I MULTI-SHOCK 


-ARGUMENTrArealDensBump.q per socm.MS". 1,133) 
-ARGUMENTn_reaTwall.an.MSM ,134) 
-ARGUMENTCSpadng.cm.MS", 1,135) 
-ARGUMENTCVekxaty.MSM ,136) 
-ARGUMENTrObHquttv.deq.MSM ,137) 


1.3716 Echo Input 
0.125 


35 I Spacing, earn. MS 
Velocity.MS 



Density_Proj.MS [ 9 /cc]. 
Density_RW. MS [g/cc]. 
Material Strenqth.ksi.MS fksij 


V normal. MS 






CALCULATED VALUES 


-0.354*I34 A (1/3)*I38 A (-1/3)*I39 A (1/3)*I41 A (- 
1 /3ri35 A {2/3)*fl40/40) A (1/6) V2 7 


»(((I34*(14C/40) A 0.5+0.37*I33)/(0.624*I38 A 0.5*COS(I37*PIO/ 

1 80))) A (1 8/1 9)*{2-l41/3)) 3< V < 7 

»((0.1948*I34 A (1/3)*I38 A (- 
1 /3)*I39 A ( 1 /3)*l35 A {2/3) # ( 140/40 ) A ( 1 /6))*(I41 /3-1 )) 
m| 44 +143 
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H 

1 

J 

46 


»((l34•(l40/40) A 0.5+0.37*l33)/(0.3*(COS(t37*PI()/180)) A (5/3) , 
I38*0.5*I36 A (2/3))) A ( 18/1 9) 

V£3 

E9 

Critical Diam. [cm] 

-IF(I41< -3.l46 t IF(M1«6,M5,U2)) 


48 


-RETURN047) 
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1 «- 1 

Ml 


o 1 P 

1 

The solar flux data was taken from 

2 

BUMPERII SOLAR_FLUX.DAT 

3 

1 This data comes from the March 1990 change neqi 

4 

1 to SSP 30425 

table 4-1 . The copy used was mid 

5 

! the page that covered 7/95-12/97. Most of the 

6 

1 missing data was made up by using the values list* 

7 

i for eleven years later. 

9//97-12/97 was estimated 

8 

1 by interpolation. 



9 

Year 

Max Nomina 

Min 

10 

1993.000 

178.6 

121.5 

87.8 

11 

1993.083 

176.3 

120.5 

86.5 

12 

1993.167 

174.9 

119.5 

85.9 

13 

1993.250 

171.1 

117.9 

85 

14 

1993.333 

164.5 

116.3 

83.6 

15 

1993.417 

158.1 

114.6 

82.3 

16 

1993.500 

154.4 

112.9 

81.6 

17 

1993.583 

152.7 

111.1 

81.5 

18 

1993.667 

150.8 

109.5 

61.9 

19 

1993.750 

148.1 

108 

81.6 

20 

1993.833 

145 

106.4 

81.4 

21 

1993.917 

141.1 

104.9 

80.2 

22 

1994.000 

137 

103.4 

80.3 

23 

1994.083 

132.4 

101.9 

80 

24 

19M.167 

125.4 

100.3 

78.9 

25 

1994.250 

119.5 

98.9 

77.6 

26 

1994.333 

118.4 

97.7 

76.6 

27 

1994.417 

118.7 

96.6 

74.8 

28 

1994.500 

119.4 

95.6 

74 

29 

1994.583 

119.8 

94.6 

73.4 

30 

1994.667 

119 

93.9 

73.2 

31 

1994.750 

117.7 

92.8 

73.1 

32 

1994.833 

116.4 

91.7 

72.7 

33 

1994.917 

114.6 

90.6 

71.7 

34 

1995.000 

110.8 

69.6 

71.1 

35 

1995.063 

105.4 

88.4 

70.6 

36 

1995.167 

103.2 

87.3 

70.1 

37 

1995.250 

102 

86.5 

69.9 

38 

1995.333 

100.4 

85.7 

70 

39 

1995.417 

98.2 

84.8 

69.9 

40 

1995.500 

96.6 

83.6 

69.7 

41 

1995.583 

94.6 

62.5 

69.5 

42 

1995.667 

93.8 

81.8 

69.4 

43 

1995.750 

92.7 

81.1 

69.3 
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44^ 

1995.633 

92 

80.3 

69 

C3 

1995.917 

91.8 

79.6 

68.8 

Mi 

1996.000 

91.4 

78.9 

68.5 

m 

1996.083 

90.8 

78.2 

68.2 

48 

1996.167 

90.1 

77.5 

68.2 

49 

1996.250 

89.1 

76.9 

68.2 

SO 

1996.333 

88.2 

76.4 

68.2 

EU 

1996.417 

87 

75.9 

68.3 

EH 

1996.500 

85.4 

75.3 

68.3 

EH 

1996.583 

83.2 

74.8 

68.3 

Cl 

1996.667 

80.5 

74.2 

68.3 

M 

1996.750 

78.5 

73.5 

67.9 

EH 

1996.833 

77.6 

72.9 

67.6 

EH 

1996.917 

77.1 

72.3 

67.4 

EH 

1997.000 

76.9 

72 

67.4 

EH 

1997.063 

76.7 

71.6 

67.2 

EH 

1997.167 

76.5 

71.3 

67.1 

EH 

1997.250 

76.2 

70.9 

67 

EH 

1997.333 

75.2 

70.6 

67 

EH 

1997.417 

74.2 

70.3 

67 

64 

1997.500 

74 

70.1 

67 

EH 

1997.563 

73.5 

69.9 

67 

EH 

1997.667 

73.8 

70.1 

67 

EH 

1997.750 

74.1 

70.2 

67 

m 

1997.833 

74.3 

70.4 

67 

EH 

1997.917 

74.6 

70.5 

67 

EH 

1998.000 

74.9 

70.7 

67 

EH 

1998.083 

76.2 

71.1 

67.1 

EH 

1998.167 

78.4 

71.6 

67.2 

EH 

1998.250 

79.8 

72.2 

67.3 

EH 

1998.333 

81.5 

72.8 

67.4 

75 

1998.417 

84.1 

73.6 

67.5 

EH 

1998.500 

87.7 

74.5 

67.7 

EH 

1998.583 

93.4 

75.7 

67.9 

EH 

1998.667 

97.9 

77 

68 

EH 

1998.750 

101.7 

78.4 

68 

EH 

1998.833 

107.7 

80.1 

68 

EH 

1998.917 

114.5 

82 

66 

EH 

1999.000 

121.1 

84 

68.1 

EH 

1999.083 

129.1 

86.2 

68.4 

EH 

1999.167 

137.6 

88.5 

68.5 

EH 

1999.250 

143.4 

91 

68:6 

EH 

1999.333 

147.6 

93.7 

68.8 

EH 

1999.417 

151.7 

96.3 

68.7 

EH 

1999.500 

155.7 

98.9 

68.8 

EH 

1999.583 

160.1 

101.6 

69.2 

EH 

1999.667 

164.8 

104.4 

69.7 

ED 

1999.750 

169.1 

107.2 

70.1 

EH 

1999.833 

173 

110.2 

70.6 

EH 

1999.917 

177.1 

113.2 

70.7 

EU 

2000.000 

186.1 

116.2 

71.3 

EH 

2000.083 

191.5 

119.3 

72.2 

EH 

2000.167 

194.3 

122 

72.6 

ED 

2000.250 

196.9 

124.3 

73.3 

EH 

2000.333 

199.6 

126.5 

73.9 

EH 

2000.417 

204.2 

128.6 

74.1 

KIE 

2000.500 

210.6 

131 

74.4 
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101 

2000.583 

214.8 

133.3 

74.5 

102 

2000.667 

217.2 

135.6 

74.6 

103 

2000750 

221.6 

137.6 

74.5 

104 

2000.833 

226.9 

139.6 

74.1 

105 

2000.917 

229.9 

141.4 

73.6 

106 

2001.000 

231.7 

143.2 

73.5 

107 

2001.083 

233.7 

144.6 

73.6 

108 

2001.167 

235.6 

145.6 

74 

109 

2001.250 

238.8 

146.7 

75.1 

110 

2001.333 

242.8 

147.2 

75.8 

111 

2001.417 

245.2 

147.7 

76.5 

112 

2001.500 

224.5 

148.1 

78.1 

113 

2001.583 

243.3 

148.4 

80.1 

114 

2001.667 

244.7 

148.7 

82.5 

115 

2001.750 

245.7 

148.2 

84 

116 

2001.833 

243.3 

146.8 

85.5 

117 

2001.917 

239.4 

145.7 

87.9 

118 

2002.000 

235 

145.1 

89.5 

119 

2002.083 

232.9 

144.9 

92.2 

120 

2002.167 

233.3 

144.9 

93.8 

121 

2002^50 

233.1 

144.7 

94.9 

122 

2002.333 

231.2 

144.2 

95 

123 

2002.417 

229.1 

143.5 

94.7 

124 

2002.500 

228.1 

142.7 

94.9 

125 

2002.583 

227.6 

142.3 

96.5 

126 

2002.667 

226.7 

142.1 

97.3 

127 

2002.750 

225.6 

141.3 

96.8 

128 

2002.833 

223 

140.1 

96 

129 

2002.917 

218.6 

138.4 

96 

130 

2003.000 

215.2 

136.8 

96.6 

131 

2003.083 

212 

135.5 

96.7 

132 

2003.167 

206.9 

134.3 

95.1 

133 

2003.250 

204 

133 

95 

134 

2003.333 

203.6 

131.6 

96.3 

135 

2003.417 

200.4 

129.8 

96.5 

136 

2003.500 

196.8 

128.3 

94.7 

137 

2003.583 

195.7 

127.3 

93.6 


2003.667 

194.8 

126.5 

93.5 


2003.750 

191.5 

125.1 

91.9 


2003.833 

187.4 

123.5 

68.7 

[1411 2003.917 

182.9 

122.3 

86.6 


2004.000 

178.6 

121.5 

87.8 


2004.063 

176.3 

120.5 

66.5 


2004.167 

174.9 

119.5 

85.9 


2004.250 

171.1 

117.9 

85 


2004.333 

164.5 

116.3 

83.6 


2004.417 

156.1 

114.6 

82.3 


2004.500 

154.4 

112.9 

81.6 


2004.583 

152.7 

111.1 

81.5 


2004.667 

150.8 

109.5 

81.9 

p m 

2004.750 

148.1 

108 

81.6 


2004.833 

145 

106.4 

81.4 


2004.917 

141.1 

104.9 

80.2 

ran 

2005.000 

137 

103.4 

80.3 


2005.083 

132.4 

101.9 

80 


2005.167 

125.4 

100.3 

78.9 


2005.250 

119.5 

96.9 

77.6 


2005.333 

118.4 

97.7 

76.6 


2005.417 

118.7 

96.6 

74.8 


2005.500 

119.4 

95.6 

74 

161 

2005.583 

119.8 

94.8 

73.4 

162 

2005.667 

119 

93.9 

73.2 
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AppcndhG-SD FUNCTION MACROS LISTING 



L 1 

M | 

N I 


P 

163 

2006.750 

117.7 

92.8 

73.1 


164 

2005.833* 

116.4 

91.7 

72.7 


165 

2005.917 

114.6 

90.6 

71.7 


166 

2006.000 

110.8 

89.6 

71.1 


167 

2006.063 

105.4 

88.4 

70.6 


166 

2006.167 

103.2 

87.3 

70.1 


169 

2006.250 

102 

86.5 

69.9 


170 

2006.333 

100.4 

85.7 

70 


171 

2006.417 

96.2 

84.8 

69.9 


172 

2006.500 

96.6 

83.6 

69.7 


173 

2006.583 

94.6 

82.5 

69.5 


174 

2006.667 

93.8 

81.8 

69.4 


175 

2006.750 

92.7 

81.1 

69.3 


176 

2006.833 

92 

80.3 

69 


177 

2006.917 

91.8 

79.6 

68.8 


178 

2007.000 

91.4 

78.9 

68.5 


179 

2007.083 

90.8 

78.2 

68.2 


160 

2007.167 

90.1 

77.5 

68.2 


181 

2007.250 

89.1 

76.9 

68.2 



2007.333 

88.2 

76.4 

68.2 



2007.417 

87 

75.9 

68.3 



2007.500 

85.4 

75.3 

68.3 



2007.583 

83.2 

74.8 

68.3 



2007.667 

80.5 

74.2 

68.3 


187 

2007.750 

78.5 

73.5 

67.9 


188 

2007.833 

77.6 

72.9 

67.6 


189 

2007.917 

77.1 

72.3 

67.4 


190 

2006.000 

76.9 

72 

67.4 


191 

2008.083 

76.7 

71.6 

67.2 


192 

2008.167 

76.5 

71.3 

67.1 


193 

2008.250 

76.2 

70.9 

67 


194 

2008.333 

75.2 

70.6 

67 


195 

2008.417 

74.2 

70.3 

67 


196 

2006.500 

74 

70.1 

67 


197 

2006.583 

73.5 

69.9 

67 
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Appendix G - SD FUNCTION MACROS LISTING 


VARIABLE 


REFERENCE 


b A.VD 

«$B$98 

b Any.Complele.Flux.CaJc.O D F 

-$C$76 

AreaPNP 

-$B$85 

Areal.Dent_Bump.gpsqcm.MS 

-*IS33 

Areal Dent Bump.g_per tqcm.MS 

-SIS33 

B.VD 

-SBS99 

C.VD 

«SB$100 

D.VD 

«$B$101 

Debnt.Rux 

«$B$34:$B$65 

Density.BUMP.WPL 

-SIS16 

Dantity.Proj.MS 

«$l$38 

Dentity.Proj.WPL 

-5U14 

Dentity.RW.MS 

-SW3# 

Oentity.RW.WPL 


dam.QDF 

«$B$71 

dam.SDF 

-$B$41 

E.VD 

-SBS102 

F.VD 

«$B$103 

Flux.PNP 

«$B$83 

Fkix.ODF 

-$B$75 

fvl.VD 

-SB$107 

h/2.VD 

«$B$108 

N3.VD 

-SBS109 

M.VD 

«$B$1 10 

F.one 

-SBS58 

Flone.ODF 

-$B$73 

F.two 

«$B$59 

F~ two.ODF 

*$B$74 

G.VD 

-$B$104 

g_one 

«$B$61 

q two 

-SBS62 i 


35 |h.alt.SOF 
H.VO 
HdODF 
HdSDF 


inaVD 

ind.SDF 


JSC WHIPPLE 


*$B$44 

m$B$105 

*$B$72 

*5B$54 


«$B$96 

■SB$43 


«$IS4:$I$25 


42 

k.Flux.Factor.SDF 

-SBS46 l 

43 

Material.Strength.ksi.MS 

>$l$40 < 

44 

Material_StrBngth.ksi.WPL 

*$l$17 1 
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Appendix Q - SO FUNCTION MACROS LISTING 



s 

1 t r 

U 

E3 

Met.d^m.cm.MFlx 

-58528 

0 


MFlux.Dcm 

-$B$26:$B$30 

1 

Cl 

MULTLSHOCK 

-51528:51548 

1 

48 

Obliquity.deg.MS 

-51537 

■ 

49 

Obnquity.dea.WPL 

-51513 

1 

50 

p.growlh.SDF 

-5B54S 

0 

in 

phi.SDF 

-5B556 

0 

eh 

phi.one.SDF 

-5B555 

0 

EH 

Phi.teble 

-3E54SF5105 

0 

ED 

PNP_FDaysAi»« 

■$B$79:$B$88 

1 

LU 

Print_Area 

-5A51 5C5 1 1 2.SE51 * 

0 

ED 

q.SDF 

-58548 

0 

EH 

QUICK_FLUX 

-$B$69:SB$76 

1 

ED 

S.calc.SDF 

-58550 


ED 

S.SDF 

-5B547 


ED 

SOLAR.FLUX.DAT 

-51510:505197 

- 1 

in 

Solar.Flux.Year 

-58549 


ED 

Spacing, cm. MS 

-51*35 


ED 

K* Trlil* X- 1 1 

-51511 



timejdays.PNP 

-58584 

0 

ED 

t.bumper.cm.WPL 

-5159 

0 

ED 

t_rear.wail.cm. MS 

-51534 

0 

ED 


-51510 

0 

ED 

vei.VD 

-58595 

0 

ED 

Velocity .kmpe.WPL 

-51512 

0 

ED 

Velocity. MS 

-51536 

0 

ED 

Vetodty.Diat 

-5B5925B5112 

1 

ED 

vo.VD 

-585106 

0 

ED 

V.normai.MS 

-51541 

0 

ED 

V normaJ.WPL 

-51516 

0 

E 

Xi.SDF 

-5B552 

1 

ED 

Year.SDF 

*$B$42 

0 1 
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Appendix H. Typical EXCEL Output 


H-i 







PNP 

SHIELD INFO 

GEOMETRY INFO 

ENVIRONMENT INFO 

SHIELD CALCULATION 

0.999975 

PID NUMBER 2 

Model: Created by Areas Macro 

year 

1995 

RESPONSE OUTPUT FILES 



Element: Details next to Area Table 

inclination 

28.5° 



REGRESSION PENETRATION FUNCTION 

Range: 

altitude 

388 

35pids.rs 



I Area (m A 2J: 

mass growth rate 

5% 


1-PNP 

Configuration Shield Wall 

0.3685 

flux factor 

4 


2.50E-05 

Double Plate 6061 -T6 2219-T87 


Solar Flux (autocalc if 0) 

0 



Shield Thickness - 0.0500 


Exposure Time [yr] 

1 



Vessel Wall Thickness - 0. 1 250 




FLUX CALCULATION 


Standoff- 4.0000 




diameter [cm] 1 


With SO Layers of MLI against vessel wall 




F [impacts/m A 2/yr 2E-05 


ns 

i 


File: PNP_Temp!ate Date: 2/17/92 

















Ballistic Limit Surface [ cm ] 


km / i \* 

0 * 

5 * 

10 * 

15 * 

20 * 

25 ° 

30 * 

35 * 

40 * 

45 * 

50 * 

55 * 

60 ° 

65 * 

70 * 

75 * 

80 * 

85 * 

90 * 

0.5 

1.33 

1.33 

1.34 

1.37 

1.40 

1.44 

1.50 

1.58 

1.67 

1.79 

1.94 

2.15 

2.42 

2.42 

2.42 

2.42 

2.42 

2.42 

2.42 

1.0 

0.78 

0.79 

0.79 

0.81 

083 

0.85 

0.89 

0.93 

0.99 

1.06 

1.15 

1.27 

1.43 

1.43 

1.43 

1.43 

1.43 

1.43 

1.43 

1.5 

0.52 

0.52 

0.52 

0.53 

0.53 

0.54 

0.55 

0.57 

0.58 

060 

0.65 

0.72 

0.81 

0.81 

0.81 

0.81 

0.81 

0.81 

0.81 

2.0 

0.42 

0.43 

0.44 

0.44 

0.45 

0.46 

0.49 

0.53 

0.54 

0.56 

0.59 

0.62 

0.67 

0.67 

0.67 

0.67 

0.67 

0.67 

0.67 

2.5 

0.44 

0.45 

0.46 

0.47 

0.47 

0.48 

0.48 

0.49 

0.52 

0.54 

0.56 

0.59 

0.62 

0.62 

0.62 

0.62 

062 

0.62 

0.62 

3.0 

0.47 

0.48 

0.49 

0.49 

050 

0.50 

0.51 

0.51 

0.51 

0.52 

0.54 

0.57 

0.60 

0.60 

0.60 

0.60 

0.60 

0.60 

0.60 

3.5 

050 

0.51 

0.51 

0.52 

0.52 

0.53 

0.53 

0.53 

0.53 

0.54 

0.55 

0.57 

0.60 

0.60 

0.60 

0.60 

0.60 

0.60 

0.60 

4.0 

0.52 

053 

0.54 

0.55 

0.55 

0.55 

0.55 

0.55 

0.55 

0.55 

056 

0.58 

0.61 

0.61 

0.61 

0.61 

0.61 

0.61 

0.61 

4.5 

055 

0.57 

0.57 

0.58 

0.58 

0.58 

0.57 

0.57 

0.57 

0.57 

0.57 

0.59 

0.61 

0.61 

0.61 

0.61 

061 

0.61 

0.61 

5.0 

0.59 

0.60 

0.60 

0.61 

0.61 

0.60 

0.60 

0.59 

0.59 

0.58 

0.59 

0.60 

0.62 

0.62 

0.62 

0.62 

0.62 

0.62 

0.62 

5.5 

062 

0.63 

0.64 

0.64 

0.64 

0.63 

0.62 

0.61 

0.61 

0.60 

0.60 

0.61 

0.63 

0.63 

0.63 

0.63 

0.63 

0.63 

0.63 

6.0 

0.65 

0.67 

0.67 

0.67 

0.67 

0.66 

0.65 

0.64 

0.63 

0.62 

0.61 

0.62 

0.64 

0.64 

0.64 

0.64 

0.64 

0.64 

0.64 

6.5 

0.66 

0.67 

0.67 

0.67 

0.67 

0.68 

0.68 

0.66 

0.65 

0.64 

0.63 

0.63 

0.65 

0.65 

0.65 

0.65 

0.65 

0.65 

065 

70 

0.65 

0.65 

0.66 

0.66 

0.66 

0.67 

0.68 

0.69 

0.67 

0.65 

0.64 

0.64 

0.66 

0.66 

0.66 

0.66 

0.66 

0.66 

0.66 

7.5 

0.64 

0.64 

0.65 

0.65 

0.65 

0.66 

0.67 

0.68 

0.69 

0.67 

0.66 

0.65 

0.67 

067 

0.67 

0.67 

0.67 

0.67 

0.67 

8.0 

0.63 

0.63 

0.64 

0.64 

0.64 

0.65 

0.66 

0.67 

0.68 

0.69 

0.67 

0.67 

068 

0.68 

0.68 

0.68 

068 

0.68 

0.68 

8.5 

0.62 

0.63 

0.63 

0.63 

063 

0.64 

0.65 

0.66 

0.67 

068 

069 

0.68 

068 

0.68 

0.68 

068 

068 

0.68 

0.68 

9.0 

0.62 

0.62 

062 

0.62 

0.63 

0.63 

0.64 

0.65 

066 

0.67 

0.69 

0.69 

0.69 

0.69 

0.69 

0.69 

0.69 

0.69 

0.69 

9.5 

0.61 

0.61 

0.61 

0.62 

0.62 

0.63 

0.63 

0.64 

0.65 

0.67 

0.68 

0.70 

0.70 

0.70 

0.70 

0.70 

0.70 

0.70 

0.70 

10.0 

0.60 

0.60 

0.61 

0.61 

0.61 

0.62 

0.63 

0.63 

0.65 

0.66 

0.67 

0.69 

0.71 

0.71 

0.71 

0.71 

0.71 

071 

0.71 

; 10.5 

0.60 

060 

0.60 

0.60 

0.61 

0.61 

0.62 

0.63 

0.64 

0.65 

0.87 

0.69 

0.71 

0.71 

0.71 

0.71 

0.71 

0.71 

0.71 

11.0 

0.59 

0.59 

0.59 

059 

060 

060 

0.61 

0.62 

0.63 

0.64 

0.66 

0.66 

0.70 

0.70 

0.70 

0.70 

0.70 

0.70 

0.70 

11.5 

0.58 

0.58 

0.59 

0.59 

0.59 

0.60 

0.60 

0.61 

0.62 

0.64 

0.65 

0.67 

0.69 

0.69 

0.69 

0.69 

0.69 

0.69 

0.69 

12.0 

0.58 

0.58 

0.58 

0.58 

0.59 

0.59 

0.60 

0.61 

0.62 

063 

0.64 

0.66 

0.69 

069 

0.69 

0.69 

0.69 

0.69 

0.69 

125 

0.57 

0.57 

0.57 

0.58 

0.58 

0.59 

0.59 

0.60 

0.61 

0.62 

0.64 

0.66 

068 

0.68 

0.68 

0.68 

0.68 

0.68 

0.68 

130 

057 

0.57 

0.57 

0.57 

0.57 

0.58 

0.59 

0.59 

0.60 

0.62 

063 

0.65 

0.67 

0.67 

0.67 

0.67 

0.67 

067 

0.67 

13.5 

0.56 

0.56 

0.56 

0.57 

0.57 

0.57 

0.58 

0.59 

0.60 

0.61 

0.63 

0.64 

067 

0.67 

0.67 

0.67 

0.67 

067 

0.67 

14.0 

0.56 

0.56 

0.56 

0.56 

0.56 

0.57 

058 

0.58 

0.59 

0.61 

0.62 

0.64 

066 

066 

0.66 

0.66 

0.66 

0.66 

0.66 

14.5 

0.55 

0.55 

0.55 

0.55 

0.56 

0.56 

0.57 

0.58 

0.59 

0.60 

0.61 

0.63 

0.65 

0.65 

0.65 

0.65 

0.65 

0.65 

0.65 

15.0 

0.55 

0 55 

0.55 

0.55 

0.55 

0.56 

0.57 

0.57 

0.58 

0.59 

0.61 

0.63 

0.65 

0.65 

0.65 

0.65 

0.65 

0.65 

0.65 

15.5 

0.54 

0.54 

0.54 

0.55 

0.55 

0.55 

0.56 

0.57 

0.58 

0.59 

0.60 

0.62 

0.64 

064 

0.64 

0.64 

0.64 

0.64 

0.64 

16.0 

0.54 

0.54 

0.54 

0.54 

0.55 

0.55 

0.56 

0.56 

0.57 

0.59 

0.60 

0.62 

0.64 

0.64 

0.64 

0.64 

0.64 

0.64 

0.64 


File: PNP_Template Dale: 2/17/92 



FLUX [impacts per sq meter per year 


km/stteg 

0° 

5° 

10» 

15* 

20° 

25* 

30* 

35* 

40° 

45* 

50° 

55* 

60° 

65° 

70° 

75° 

80° 

05° 

90° 

0.5 

1.24E-5 

1.23E-5 

1.26-5 

1.16E-5 

1.1 E-5 

1.03E-5 

9.476-6 

8.S5E-6 

7.59E-8 

8.61 E 6 

5.65E-6 

4.72E-6 

3.88E-6 

3.88E-6 

3.88E-6 

3.88E-6 

3.88E-6 

3.88E-6 

3.88E-6 

1.0 

4.23E-5 

4.19E5 

4.09E-5 

3.93E-5 

3.72E-5 

3.43E-5 

3.136-5 

2.78E-5 

2.43E-5 

2.07E-5 

1.7E-5 

1.36E-5 

1.05E-5 

1.05E-5 

1 .05 E-5 

1.05E-5 

1.05E-5 

1 .05E-5 

1.05E-5 

1.5 

1.15E-4 

1.14E-4 

1.13E-4 

1.1 IE-4 

108E-4 

1.04E-4 

9.96-5 

9.37E-5 

8.72E-5 

8.E-5 

6 61 E-5 

5.19E-5 

3.87E-5 

3.07E-5 

3.87E-5 

3.87E-5 

3.87E-5 

3.87E-5 

3.87E-5 

2.0 

1 94E-4 

1 .87E-4 

1.786-4 

1.71E-4 

1.64E-4 

1 56E-4 

1.326-4 

1.1E-4 

1 03E-4 

9.47E-5 

8.55E-5 

7.57E-5 

6.25E5 

6.25E-5 

6.25E-5 

6.25E-5 

6.25E-5 

6.25E-5 

6.25E-5 

2.5 

1.72E-4 

1.63E-4 

1.556-4 

1.49E-4 

1 .45E-4 

1.41E-4 

1.376-4 

1.33E-4 

1.15E-4 

1.06E-4 

9.64 E-5 

8.55E-5 

7.36E-5 

7.36E-5 

7.36E-5 

7.36E-5 

7.36E-5 

7.36E-5 

7.36E-5 

3.0 

1.49E-4 

1.42E-4 

1.356-4 

1.31E-4 

1.28E-4 

1.26E-4 

1.236-4 

1.21E4 

1.18E-4 

1.14E-4 

1.05E-4 

9.35E-5 

8.06E-5 

8.06E-5 

8.06E-5 

8.06E-5 

8.06E-5 

8.06E-5 

8.06E-5 

3.5 

1.3E-4 

1.23E4 

1.186-4 

1.15E-4 

1.13E-4 

1.12E-4 

1.116-4 

1.1E-4 

109E-4 

1.06E-4 

1.01E-4 

9.31 E 5 

8.18E5 

8.18E-5 

8.18E-5 

8.18E-5 

8.18E-5 

8.18E-5 

8.18E-5 

4.0 

1.13E-4 

1.07E 4 

1.036-4 

1.01E-4 

1.E-4 

9.99E-5 

1.6-4 

1.01E-4 

1.E-4 

9.896*5 

9.54E-5 

8.9E-5 

7.9E-5 

7.9E-5 

7.9E-5 

7.9E-5 

7.9E-5 

7.9E-5 

7.9E-5 

4.5 

9.63E-5 

9.36E-5 

8.076-5 

8.9E-5 

8.87E-5 

8.93E-5 

9.046-5 

9.17E-5 

9 25E-5 

9.24E-5 

9.02E-5 

8.52E-5 

7.65E-5 

7.65E-5 

7.65E-5 

7.65E-5 

7.65E-5 

7.65E-5 

7.65E-5 

5.0 

0.59E-5 

8.17E-5 

7.946-5 

7.84E-5 

7.87E-5 

7.99E-5 

8.176-5 

8.37E-5 

8 55E-5 

0.62E-5 

8.52E-5 

8.14E-5 

7.39E-5 

7.39E-5 

7.39E-5 

7.39E-5 

7.39E-5 

7.39E-5 

7.39E-5 

5.5 

7.5E-5 

7.15E-5 

6.966-5 

6.92E-5 

6.98E-5 

7.15E-5 

7.37E-5 

7.64E-5 

7.89E-5 

8.05E-5 

8.05E-5 

7.79E-5 

7.14E-5 

7.14E-5 

7.14E-5 

7.14E-5 

7.14E-5 

7.14E-5 

7.14E-5 

6.0 

6 56E-5 

6.26E-5 

6.126-5 

6.1 IE-5 

6 22E5 

6.41 E-5 

6.676-5 

6.9QE-5 

7.28E-5 

7.53E-5 

7.63E-5 

7.45E-5 

6.91 E-5 

6 91 E-5 

6 91 E-5 

6.91 E-5 

6.91 E-5 

6.91 E-5 

6 91 E-5 

6.5 

8 3E-5 

6.29E 5 

6.246-5 

6.17E-5 

6.07E-5 

5.93E-5 

6.046-5 

6.38E-5 

6.74E-5 

7.04E-5 

7.21 E 5 

7.1 3E 5 

6.68E-5 

6.68E-5 

6.68E-5 

6.68E-5 

6.68E-5 

6.68E-5 

6.68E-5 

7.0 

6.58E-5 

6.56E 5 

6.526-5 

6.44E-5 

6.33E-5 

6.19E-5 

6.026-5 

5 84E-5 

6 23E-5 

6 58E5 

6.82E-5 

6.82E-5 

6.46E-5 

6.46E-5 

6.46E-5 

6.46E-5 

6.46E-5 

6.46E-5 

6.46E-5 

7.5 

6 64E5 

6.82E-5 

6.786-5 

6.7E-5 

6.58E-5 

6.44E-5 

6.266-5 

6 05E-5 

5.81 E-5 

616E-5 

6.45E-5 

6.53E-5 

6.25E-5 

6.25E-5 

6.25E-5 

6.25E-5 

6.25E-5 

6.25E-5 

6.25E-5 

8.0 

7.09E-5 

7.07E-5 

7.026-5 

6.94E-5 

6.83E-5 

6.68E-5 

6.496-5 

6.28E-5 

6 02E-5 

5.77E-5 

6.1 IE-5 

6.25E-5 

6.04 E-5 

6.04E-5 

6.04E-5 

6.04E-5 

6.04 E-5 

6.04E-5 

6.04E-5 

85 

7.33E-5 

7 31 E-5 

7.266-5 

7.17E-5 

7.05E-5 

6.9E-5 

6.716-5 

6 49E-5 

6.23E-5 

5.93E-5 

5.78E-5 

5.98E-5 

5.85E-5 

5.85E-5 

5.85E-5 

5.85E-5 

5.85E-5 

5.85E-5 

5.85E-5 

9.0 

7.55E-5 

7.54E-5 

7.486-5 

7.4E-5 

7.27E-5 

7.1 IE-5 

6.926-5 

6 69E-5 

6.42E-5 

8.11 E 5 

5.77E-5 

5.73E-5 

5.66E-5 

5.66E-5 

5.66E-5 

5.66E-5 

5.66E-5 

5.66E-5 

5.66E-5 

9.5 

7.77E-5 

7.75E-5 

7.696-5 

7.6E-5 

7.48E-5 

7.31 E-5 

7.116-5 

6.87E-5 

6.6E-5 

6.28E-5 

5.93E-5 

5.53E-5 

5.48E-5 

5.48E-5 

5.48E-5 

5.48E-5 

5.48E-5 

5.48E-5 

5.48E-5 

10.0 

7.97E-5 

7.95E-5 

7.896-5 

7.8E-5 

7.67E-5 

7.5E-5 

7.36-5 

7.05E-5 

8.77E-5 

8 44E-5 

6.08E-5 

5 67E-5 

5.3E-5 

5.3E-5 

5.3E-5 

5.3E-5 

5.3E-5 

5.3E-5 

5.3E-5 

10.5 

8.21 E-5 

8.19E-5 

8.136-5 

8.04E-5 

7.9E-5 

7.73E-5 

7.52E-5 

7.26E-5 

8.97E-5 

6.84E-5 

6.26E-5 

5.84E-5 

5.37E-5 

5.37E-5 

5.37E-5 

5.37E-5 

5.37E-5 

5.37E-5 

5.37E-5 

1 11.0 
W 11.5 

8.45E-5 

8.43E-5 

8.376-5 

8.27E-5 

0.13E-5 

7.95E-5 

7.73E-5 

7.47E-5 

7.17E-5 

6.83E-5 

6.44 E-5 

6 01 E-5 

5.53E-5 

5.53E-5 

5.53E-5 

5.53E-5 

5.53E-5 

5.53E-5 

5.53E-5 

8.68E-5 

8.66E-5 

8.66-5 

8.5E-5 

8.36E-5 

8.17E-5 

7.956-5 

7.68E-5 

7.37E-5 

7.02E-5 

6.62E-5 

6.10E-5 

5.68E-5 

5.68E-5 

5.68E-5 

5.68E-5 

5.68E-5 

5.68E-5 

5.68E-5 

12 0 

891E-5 

8.89E-5 

8.836-5 

8.72E-5 

8.58E-5 

8.39E-5 

8.166-5 

7 88E-5 

7.57E-5 

7.2E-5 

6.8E-5 

6.34E-5 

5.83E-5 

5.83E-5 

5 83 E-5 

5.83E-5 

5.83E-5 

5.83E-5 

5.83E-5 

12 5 

9.14E-5 

9.12E-5 

9.056-5 

8.95E-5 

0.0E-5 

8.6E-5 

8.376-5 

8 08E-5 

7.76E-5 

7.39E-5 

6.97E-5 

6.5E-5 

5.98E-5 

5.98E-5 

5.98E-5 

5.98E-5 

5.98E-5 

5.98E-5 

5.98E-5 

13.0 

9.36E 5 

9.34E-5 

9.276-5 

9.16E-5 

9.01 E-5 

8.81 E-5 

8.576-5 

8.28E-5 

7.95E-5 

7.57E-5 

7.14E-5 

6.66E-5 

6.12E-5 

6.12E-5 

6.12E-5 

6.12E-5 

6.12E-5 

6.12E-5 

6.12E-5 

13.5 

9.58E-5 

9.56E-5 

9.496-5 

9.38E-5 

9.22E-5 

9.02E-5 

8.776-5 

8.48E 5 

0.13E-5 

7.74E-5 

7.3E-5 

6.81 E-5 

6.26E-5 

6.26E-5 

6.26E-5 

6.26E-5 

6.26E-5 

6.26E-5 

6.26E-5 

14.0 

9.6E-5 

9.78E-5 

9.716-5 

9.59E-5 

9.43E-5 

9.22E-5 

8.976-5 

8.67E-5 

8.32E-5 

7.92E-5 

7.47E-5 

6.97E-5 

6.4E-5 

6.4E-5 

6.4E-5 

6.4E-5 

6.4E-5 

6.4E-5 

6.4E-5 

14.5 

1.E-4 

9 99E 5 

9.926-5 

9.8E-5 

9.64E-5 

9.42E-5 

9.166-5 

8 86E-5 

8.5E5 

8.09E-5 

7.63E-5 

7.12E-5 

6.54E-5 

6.54E-5 

6.54E-5 

6.54E-5 

6.54E-5 

6.54E-5 

6.54E-5 

15.0 

1 02E-4 

1 02E-4 

1.016-4 

1.E-4 

9.84E-5 

9.62E-5 

9.366-5 

9.04E-5 

8.686*5 

8.26E-5 

7.79E-5 

7.27E-5 

6.68 E-5 

6.68E-5 

6.68E-5 

6.68E-5 

6.68E-5 

6.68E-5 

6.68E-5 

15 5 

1.04E-4 

1.04E-4 

1.036-4 

1.02E-4 

1.E-4 

9.82E-5 

9.556-5 

9.23E5 

8 85E5 

8.43E-5 

7.95E-5 

7.41 E 5 

6.82E-5 

6.82E-5 

6.82E-5 

6.82E-5 

6.82E-5 

6.82E-5 

6.82E-5 

16.0 

1.06E-4 

1.06E-4 

1.056-4 

1.04E-4 

1.02E-4 

1.E-4 

9.746-5 

9.41 E-5 

9.03E-5 

8.6E-5 

8.1 IE-5 

7.56E-5 

6.95E-5 

6.95E-5 

6.95E-5 

6.95E-5 

6.95E-5 

6.95E-5 

6.95E-5 


File: PNP_Template Date: 2/17/92 



GEOMETRY MODEL 
Model: Created by Areas Macro 
Element: Details next to Area Table 
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Araa Template • Used with Area Makar Macro 


No. 

Qaom 

Dlmanslona (maters] 
LI L2 L3 

Area 

lultlplle 

Rotation |deg] 
Pilch Yaw 

Anglo (LaL)|deg) 
Start Finish 

Incr. 

Idag] 

Longituda(Sph) 
Start Finish 

Surface 
Area [m A 2| 

1 

Rectang 

1 1 

1 

• 90* 




1 

Total 

1 


Indnatton- OO.O* 

Effective Area | ~0 



LI L2 L3 

Rectang 

Length Height 

Disk 

Radius 

Cylinde 

Radius Length f|||||ll 

Cone 

Radius 1 Radlus2 Length 

Sphere 

Radius — 1 


Fife: PNP.Template Dale: 2/17/92 



SDJSURF User's Manual 


Appendix I. Typical FORTRAN Input and Output. 


I-i 



Output from MacII_ a surf 


Mon, Feb 17, 1992 


********************* 
AjSURF VER 1.3 
Last Update 2/17/92 
***★*★**★***★***★★★** 


Binary output filename?<CR=DATA.ASB> >PLATE_ON_EDGE . ASB 

Text output filename?<CR=DATA.AST> >PLATE_ON_EDGE . AST 

ONE Area Fraction Table will be created 
from ALL of the ranges of element IDs selected. 

INPUT THE STARTING AND ENDING ELEM ENT ID FOR EACH RANGE 
ENTER D <CR> OR <CR> WHEN DONE 

RANGE 1 IN THE TABLE. 

STARTING ELEMENT ID : 1 
ENDING ELEMENT ID : 2 

RANGE 2 IN THE TABLE. 

STARTING ELEMENT ID : 

GEOMETRY OUTPUT FILENAME ( <CR>-STATION . GEM ) > PLATE. GEM 
Debris Analysis 
JSC-7/90 Memo 

Processing Property ID 4 

RANGES- 1 First PID- 4 EFF. AREA - 0.35370 

The Area Surface file is complete, 
binary filename: PLATE_ON_EDGE . ASB 
text filename: PLATE_ON_EDGE . AST 

STOP 


1-1 



Output from MacII_P_surf 


Mon, Feb 17, 1992 




Space Debris SURFace 
Ver. 1.4 1/31/92 
********★★★★★**★***★*★★★★*★ 

OUTPUT FILENAME (CR-SDSURF . PS ) >PLATE_ON_EDGE . PSURF 

ENVIRONMENT ? 

1- JSC 2000146000 <CR> 

2- 7/90 MEMO 
ANSWER 1 OR 2 > 2 

SOLAR FLUX LEVEL ? 

1 - NOMINAL <CR> 

2- MINIMUM 

3- CONSTANT 
ANSWER 1-3 > 

DATE TO BEGIN EXPOSURE ( 1994-2025 ) (<CR>-1995) > 

SPACE STATION EXPOSURE TIME (YEARS) (<CR>-10.0) > 1 

OPERATING ALTITUDE (100. -500. km) (<CR>-388 . 92) 

OR ENTER AN "E" OR "e" TO ENTER IN NMILES > 

Area_Surface Binary Output File' <CR-DATA.ASB> : PLATE_ON_EDGE . ASB 
RESPONSE OUTPUT FILENAME (<CR>-STATION.RSP) > ONE_RESPONSE . RSP 
Constant density threat 

The one case in the RESPONSE file will be used 


RESPONSE PID: 1 RESPONSE FILE: ONE_RESPONSE . RSP 

A_SURF FILE: PLATE_ON_EDGE.ASB 

PNP(%)» 99.99709 Total Flux x Area x Time (NAT) - 0.29084E-04 

CONTOURS .12345 at equal increments from 0 to max NAT - 0.20709E-05 

IMPACT VELOCITY km/s 

Obi 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 

Deg IIIIIIIIIIIIIIII 


90 

85 

80 

75 

70 Ill 

65 11111 

60 2111... 

55 14.11 

50 11.5111 

45 21.31.11 

40 14.. 31 

35 32.12 

30 11. 15. .11 

25 21.. 51. 11 

20 21.. 31 

15 12... 11 

10 11 .. 11.. 11 


1-2 



Output from MacII_P_surf 


Mon, Feb 17, 1992 


5 .11. .11. .11 

0 .11 

The PNP Surface file is complete, 
filename: PLATE ON EDGE. P SURF 


1-3 



PLATE_ON_EDGE.AST.xl 

GEOETTCf CUmJT PILE - PLATE. G£M 


GfrrCTKY PNVHETERS : 

Input - PLATE. INI 
Output - PIATE.GD4 
SLMnary - GECHEITQf.SLM 

Threat (1 2 fetcocold) X 

Eiwlrarm 2 New) 2 

Mate of Threats 45 

INDUCTION pOGREES) - 28.5 

RANGES- X First PID- 4 EFT. AREA - 0.35370 


1 SDSRT/OI) X 2 


X 

0 

5 

10 

15 

2) 

25 

30 

35 

40 

45 

50 

55 

0 

€5 

70 

75 

0 

85 

0 

0.25 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

0.5 

X.66E-04 

1.1XE-04 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

0.75 

2.92E-05 

1.95E-05 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

X 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

X.25 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

X.5 

O.OOEKX) 

5.32E-04 

1.33E-04 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

X.75 

O.OOEKX) 

4.X6E-04 

1.04EKX 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

2 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

2.25 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

2.5 

O.OOEKX) 

2.13E-09 

8.60EKM 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKJO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

2.75 

O.OOEKX) 

4.90E-09 

1.90E-O3 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

3 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

3.25 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

3.5 

O.OOEKX) 

O.OOEKX) 

1.21E-04 

4.83E-04 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

3.75 

O.OOEKX) 

O.OOEiOO 

1.12E-03 

4.47E-03 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

4 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

4.25 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

4.5 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

4.75 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

4.66E-03 

6.99E-03 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

5 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

1.71E-04 

2.57E-04 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OGEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

5.25 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

5.5 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

5.75 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

1.13E-02 

7.5QE-03 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

6 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

9.22E-04 

6.15E-04 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

6.25 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

6.5 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

6.75 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

2.31E-02 

5.77E-03 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

7 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

8.49E-05 

2.12E-05 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

7.25 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

7.5 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

8.08E-09 

7.06E-03 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

O.OOEKX) 

7.75 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

3.23E-06 

2.03E-O2 

O.OOEKX) 

O.OOEiOO 

O.OOEKX) 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

8 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

8.25 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

8.5 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

4.14E-03 

1.66E-02 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

8.75 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

3.34E-03 

1.33E-02 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

9 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEiOO 

O.OOEKX) 
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9.25 

O.OCE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

1.07E-03 

1.61E-03 

9.5 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

1.32E-02 

1.98E-02 

9.75 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

10 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

10.25 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

1.S2E-02 

10.5 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

4.25E-03 

10.75 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

11 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

11.25 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

11.5 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

11.75 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

12 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

12.25 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

12.5 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

12.75 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

13 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

13.25 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

13.5 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

13.75 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

14 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

14.25 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

14.5 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

14.75 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

15 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

15.25 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

15.5 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

15.75 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

16 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

16.25 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

16.5 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

16.75 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

17 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 


O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OGE+OO 

O.OCE+OO 

O.OOE+OO 

O.OCE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OCE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

1.01E-02 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

2.83E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OCE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

1.67E-Q2 

4.18E-03 

O.OOE+OO 

O.OCE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OCE+OO 

7.55E-03 

1.09E-O3 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OGE+OO 

O.OCE+OO 

O.OOE+OO 

O.OOE+OO 

1.84E-06 

2.41E-02 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

4.27E-09 

5.60E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

9.46E-04 

3.79E-03 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

4.81E-03 

1.92E-02 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

O.OOE+OO 

7.62E-03 

1.14E-02 
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*************************** 
Space Debris SURFaoe 
Vter. 1.4 1/31/92 
*************************** 


7/17/90 *€H> FLUX EQUATIONS 

MAN-MADE CUBITAL DEBUS ANALYSIS 

NCMINAL SOLAR FLUX LEVEL 

DATE ID BEGIN EXPOSURE - 1995.000 

SPACECRAFT EXPOSURE TM (YEARS) - 1.000 

OPERATING ALTITUDE (km) - 388.920 

AJ3URF BIMftRY OUTPUT FILE - PLATE_CNJEDGE . ASB 

RANCES- 1 PID- 4 OF. AREA (sq.m) - 0.35370 

Range 1 START: 1QC: 2 


RESPONSE PARAMETERS ; 

Threat (1 D 2 Meteoroid) 1 
Density (1 • 2 Bjnction) 1 

Nurrber of PID Cases 1 

Units ENGLISH 

PID NUMBER 1 

REGRESSION PENETRATION FUNCTION 

Configuration Shield Wall 

Double Plate 6061-T6 2219-T87 

Shield Thickness - 0.0300 

Vessel Wall Thickness - 0.1250 

Standoff - 4.0000 

With 30 Layers of MU against vessel wall 
RESPONSE GUIPl/T FILE - C*E_RESPCNSE.RSP 
1 

RESPONSE PID: 1 RESPONSE FILE: GNE RESPONSE.RSP 

ASURF FILE: PLATEONEDGE.ASB 

PNP (%)■ 99.99709 Total Flux x Area x Time (NAT) - 0.29084E-04 

CONTOURS .12345 at equal increments from 0 to max NAT * 0.20709E-05 


REACT VELOCITY km/s 
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